From 08ac0b0ddc2d8fd7eaca3a72d461f8806673c10e Mon Sep 17 00:00:00 2001
From: Nick Bowler <nbowler@draconx.ca>
Date: Fri, 5 Feb 2010 15:02:29 -0500
Subject: [PATCH] floating: Move the Double and Float modules.

---
 Data/Floating.hs                    | 4 ++--
 Data/Floating/{ => Types}/Double.hs | 2 +-
 Data/Floating/{ => Types}/Float.hs  | 4 ++--
 altfloat.cabal                      | 4 ++--
 4 files changed, 7 insertions(+), 7 deletions(-)
 rename Data/Floating/{ => Types}/Double.hs (99%)
 rename Data/Floating/{ => Types}/Float.hs (98%)

diff --git a/Data/Floating.hs b/Data/Floating.hs
index 92e2596..3965e25 100644
--- a/Data/Floating.hs
+++ b/Data/Floating.hs
@@ -17,9 +17,9 @@ module Data.Floating (
 import Prelude hiding (RealFloat(..), RealFrac(..), Double, Float)
 import Data.Floating.Classes
 import Data.Floating.Instances
-import Data.Floating.Double
-import Data.Floating.Float
 import Data.Floating.Types
+import Data.Floating.Types.Double
+import Data.Floating.Types.Float
 import Data.Floating.Environment
 
 import Control.Monad
diff --git a/Data/Floating/Double.hs b/Data/Floating/Types/Double.hs
similarity index 99%
rename from Data/Floating/Double.hs
rename to Data/Floating/Types/Double.hs
index b2024fa..596612d 100644
--- a/Data/Floating/Double.hs
+++ b/Data/Floating/Types/Double.hs
@@ -7,7 +7,7 @@
  -}
 
 {-# LANGUAGE ForeignFunctionInterface, MagicHash, UnboxedTuples #-}
-module Data.Floating.Double (
+module Data.Floating.Types.Double (
     Double
 ) where
 
diff --git a/Data/Floating/Float.hs b/Data/Floating/Types/Float.hs
similarity index 98%
rename from Data/Floating/Float.hs
rename to Data/Floating/Types/Float.hs
index c443307..61c9c0d 100644
--- a/Data/Floating/Float.hs
+++ b/Data/Floating/Types/Float.hs
@@ -7,7 +7,7 @@
  -}
 
 {-# LANGUAGE ForeignFunctionInterface, MagicHash, UnboxedTuples #-}
-module Data.Floating.Float (
+module Data.Floating.Types.Float (
     Float
 ) where
 
@@ -26,7 +26,7 @@ import Foreign.C
 import System.IO.Unsafe
 
 import Data.Floating.Types
-import Data.Floating.Double
+import Data.Floating.Types.Double
 import Data.Floating.Classes
 import Data.Floating.CMath
 
diff --git a/altfloat.cabal b/altfloat.cabal
index ce3dc80..856fb31 100644
--- a/altfloat.cabal
+++ b/altfloat.cabal
@@ -77,8 +77,8 @@ Library
         Data.Floating.CMath,
         Data.Floating.Classes,
         Data.Floating.Types,
-        Data.Floating.Double,
-        Data.Floating.Float,
+        Data.Floating.Types.Double,
+        Data.Floating.Types.Float,
         Data.Floating.Prelude,
         Data.Floating.Environment,
         Data.Floating,
-- 
2.11.4.GIT