diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-29 01:23:06 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-29 01:23:06 +0000 |
| commit | f40aa90d44c3962f5995b0c0e72d16dd91d6198d (patch) | |
| tree | 59e51fa88e522f7a712ad95d23ee103ba638e27b | |
| parent | 62a506d54f930a18527f4173913f5ae002893a76 (diff) | |
| download | haskell-f40aa90d44c3962f5995b0c0e72d16dd91d6198d.tar.gz | |
Remove some redundant imports
| -rw-r--r-- | libraries/base/Control/Monad/ST/Imp.hs | 4 | ||||
| -rw-r--r-- | libraries/base/Foreign/Storable.hs | 1 | ||||
| -rw-r--r-- | libraries/base/GHC/Enum.lhs | 1 | ||||
| -rw-r--r-- | libraries/base/GHC/MVar.hs | 1 |
4 files changed, 1 insertions, 6 deletions
diff --git a/libraries/base/Control/Monad/ST/Imp.hs b/libraries/base/Control/Monad/ST/Imp.hs index 8095ae2732..e3feaa6a68 100644 --- a/libraries/base/Control/Monad/ST/Imp.hs +++ b/libraries/base/Control/Monad/ST/Imp.hs @@ -35,9 +35,7 @@ module Control.Monad.ST.Imp ( unsafeSTToIO -- :: ST s a -> IO a ) where -#if defined(__GLASGOW_HASKELL__) -import Control.Monad.Fix () -#else +#if !defined(__GLASGOW_HASKELL__) import Control.Monad.Fix #endif diff --git a/libraries/base/Foreign/Storable.hs b/libraries/base/Foreign/Storable.hs index 9ba6bb9630..753dc83f5f 100644 --- a/libraries/base/Foreign/Storable.hs +++ b/libraries/base/Foreign/Storable.hs @@ -47,7 +47,6 @@ import Control.Monad ( liftM ) #ifdef __GLASGOW_HASKELL__ import GHC.Storable import GHC.Stable ( StablePtr ) -import GHC.IO() -- Instance Monad IO import GHC.Num import GHC.Int import GHC.Word diff --git a/libraries/base/GHC/Enum.lhs b/libraries/base/GHC/Enum.lhs index 4475540afa..cea3cedf40 100644 --- a/libraries/base/GHC/Enum.lhs +++ b/libraries/base/GHC/Enum.lhs @@ -32,7 +32,6 @@ import GHC.Char import GHC.Integer import GHC.Num import GHC.Show -import Data.Tuple () -- for dependencies default () -- Double isn't available yet \end{code} diff --git a/libraries/base/GHC/MVar.hs b/libraries/base/GHC/MVar.hs index dc9f73dfca..6a10748e2d 100644 --- a/libraries/base/GHC/MVar.hs +++ b/libraries/base/GHC/MVar.hs @@ -31,7 +31,6 @@ module GHC.MVar ( ) where import GHC.Base -import GHC.IO () -- instance Monad IO import Data.Maybe data MVar a = MVar (MVar# RealWorld a) |