trivial: Remove redundant imports and pointless variables.
authorNick Bowler <nbowler@draconx.ca>
Wed, 24 Feb 2010 01:41:47 +0000 (23 20:41 -0500)
committerNick Bowler <nbowler@draconx.ca>
Wed, 24 Feb 2010 03:02:37 +0000 (23 22:02 -0500)
The dependency graph is bad enough right now as it is, removing redunant
imports should help a bit.

Data/Floating/Environment.hs
Data/Floating/Helpers.hs
Data/Floating/Types/Double.hs
Data/Floating/Types/Float.hs
Data/Poset.hs

index bab6e4c..4625694 100644 (file)
@@ -65,8 +65,6 @@ import Data.Floating.Types.Core
 import Control.Exception
 import Control.Applicative
 import Control.Monad
-
-import System.IO.Unsafe
 import Debug.Trace
 
 import Foreign.C
index ea53f56..552cd13 100644 (file)
@@ -15,12 +15,10 @@ module Data.Floating.Helpers (
 import Prelude hiding (Double, RealFloat(..), RealFrac(..))
 import Data.Floating.Types.Core
 import Data.Roundable
-import Data.Ratio
 import Data.Maybe
 
 import Foreign
 import Foreign.C
-import System.IO.Unsafe
 
 foreign import ccall unsafe "double_format"
     double_format :: CString -> CChar -> CInt -> CDouble -> IO CInt
index 285e050..2a32869 100644 (file)
@@ -16,19 +16,15 @@ module Data.Floating.Types.Double (
 
 import Prelude hiding (Double, Floating(..), RealFloat(..), Ord(..))
 import Control.Applicative
-import Control.Monad
 import Data.Maybe
-import Data.Ratio
 import Data.Roundable
 import Data.Poset
 
 import GHC.Exts hiding (Double(..))
 import GHC.Integer
-import GHC.Prim
 
 import Foreign
 import Foreign.C
-import System.IO.Unsafe
 
 import Data.Floating.Types.Core
 import Data.Floating.Helpers
@@ -108,7 +104,7 @@ instance Roundable Double where
     toIntegral x = case classify x of
         FPInfinite -> Nothing
         FPNaN      -> Nothing
-        otherwise  -> Just . fromInteger . dropFrac $ x
+        _          -> Just . fromInteger . dropFrac $ x
     floor    = libmDouble c_floor
     ceiling  = libmDouble c_ceil
     truncate = libmDouble c_trunc
index 3100fe8..16a1d04 100644 (file)
@@ -16,18 +16,14 @@ module Data.Floating.Types.Float (
 
 import Prelude hiding (Float, Floating(..), RealFloat(..), Ord(..))
 import Control.Applicative
-import Control.Monad
 import Data.Maybe
-import Data.Ratio
 import Data.Roundable
 import Data.Poset
 
 import GHC.Exts hiding (Float(..))
-import GHC.Prim
 
 import Foreign
 import Foreign.C
-import System.IO.Unsafe
 
 import Data.Floating.Types.Core
 import Data.Floating.Helpers
@@ -108,7 +104,7 @@ instance Roundable Float where
     toIntegral x = case classify x of
         FPInfinite -> Nothing
         FPNaN      -> Nothing
-        otherwise  -> Just . fromInteger . dropFrac $ x
+        _          -> Just . fromInteger . dropFrac $ x
     floor    = libmFloat c_floorf
     ceiling  = libmFloat c_ceilf
     truncate = libmFloat c_truncf
index 06ddbc3..06de482 100644 (file)
@@ -21,7 +21,6 @@ module Data.Poset (
     module Data.Poset
 ) where
 
-import qualified Prelude
 import Prelude hiding (Ord(..), Ordering(..))
 import Data.Poset.Instances
 import Data.Poset.Internal