Commit c84bffd8 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Remove unused imports from base

These unused imports are detected by the new unused-import code
parent dbb6d842
......@@ -36,7 +36,6 @@ module Control.Applicative (
) where
import Prelude hiding (id,(.))
import qualified Prelude
import Control.Category
import Control.Arrow
......
......@@ -39,7 +39,6 @@ module Control.Arrow (
) where
import Prelude hiding (id,(.))
import qualified Prelude
import Control.Monad
import Control.Monad.Fix
......
......@@ -12,7 +12,6 @@
module Control.Category where
import Prelude hiding (id,(.))
import qualified Prelude
infixr 9 .
......
......@@ -138,7 +138,7 @@ import Control.Exception.Base
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.IO hiding ( onException, finally )
-- import GHC.IO hiding ( onException, finally )
import Data.Maybe
#else
import Prelude hiding (catch)
......
......@@ -110,7 +110,7 @@ import GHC.IO hiding (finally,onException)
import GHC.IO.Exception
import GHC.Exception
import GHC.Show
import GHC.Exception hiding ( Exception )
-- import GHC.Exception hiding ( Exception )
import GHC.Conc
#endif
......
......@@ -32,8 +32,6 @@ module Control.Monad.ST
unsafeSTToIO -- :: ST s a -> IO a
) where
import Prelude
import Control.Monad.Fix
#include "Typeable.h"
......
......@@ -36,13 +36,11 @@ import Prelude
import Control.Monad.Fix
import Control.Monad.ST (RealWorld)
import qualified Control.Monad.ST as ST
#ifdef __GLASGOW_HASKELL__
import qualified GHC.ST
import GHC.Base
import Control.Monad
#endif
#ifdef __HUGS__
......
......@@ -16,5 +16,4 @@ module Control.Monad.ST.Strict (
module Control.Monad.ST
) where
import Prelude
import Control.Monad.ST
......@@ -134,7 +134,7 @@ module Control.OldException (
import GHC.Base
import GHC.Num
import GHC.Show
import GHC.IO ( IO )
-- import GHC.IO ( IO )
import GHC.IO.Handle.FD ( stdout )
import qualified GHC.IO as New
import qualified GHC.IO.Exception as New
......
......@@ -114,7 +114,6 @@ import Data.Maybe
import Control.Monad
-- Imports for the instances
import Data.Typeable
import Data.Int -- So we can give Data instance for Int8, ...
import Data.Word -- So we can give Data instance for Word8, ...
#ifdef __GLASGOW_HASKELL__
......
......@@ -47,7 +47,6 @@ import Unsafe.Coerce
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.Show
import GHC.Err
import GHC.Num
#endif
......
......@@ -35,7 +35,7 @@ import Hugs.IORef
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.STRef
import GHC.IO
-- import GHC.IO
import GHC.IORef hiding (atomicModifyIORef)
import qualified GHC.IORef
#if !defined(__PARALLEL_HASKELL__)
......
......@@ -60,7 +60,7 @@ module Data.Ix
) where
import Prelude
-- import Prelude
#ifdef __GLASGOW_HASKELL__
import GHC.Arr
......
......@@ -16,5 +16,4 @@ module Data.STRef.Strict (
module Data.STRef
) where
import Prelude
import Data.STRef
......@@ -96,7 +96,7 @@ import GHC.Err (undefined)
import GHC.Num (Integer, fromInteger, (+))
import GHC.Real ( rem, Ratio )
import GHC.IORef (IORef,newIORef)
import GHC.IO (IO, unsafePerformIO,block)
import GHC.IO (unsafePerformIO,block)
-- These imports are so we can define Typeable instances
-- It'd be better to give Typeable instances in the modules themselves
......
......@@ -78,7 +78,7 @@ import Foreign.Storable ( Storable(sizeOf) )
#ifdef __GLASGOW_HASKELL__
import GHC.Base
import GHC.IO
-- import GHC.IO
import GHC.Num
import GHC.Err ( undefined )
import GHC.ForeignPtr
......
......@@ -37,7 +37,7 @@ import System.IO.Error
#endif
import GHC.Base
import GHC.Num
import GHC.IO
-- import GHC.IO
import GHC.IO.Exception
#endif
......
......@@ -58,7 +58,7 @@ import GHC.Show
import GHC.Enum
import GHC.Word ( Word(..) )
import Data.Int
-- import Data.Int
import Data.Word
#else
import Control.Monad ( liftM )
......
......@@ -42,6 +42,7 @@ 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
......
......@@ -126,7 +126,7 @@ import GHC.Arr ( inRange )
#endif
#ifdef mingw32_HOST_OS
import GHC.Real ( div )
import GHC.Ptr ( plusPtr, FunPtr(..) )
import GHC.Ptr ( FunPtr(..) )
#endif
#ifdef mingw32_HOST_OS
import GHC.Read ( Read )
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment