From: simonpj@microsoft.com <unknown>
Date: Fri, 22 Oct 2010 14:31:57 +0000 (+0000)
Subject: Remove redundant imports, now that NoImplicitPrelude does not imply RebindableSyntax
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=1fc945f3ff888665d92152963dba851726c6d529

Remove redundant imports, now that NoImplicitPrelude does not imply RebindableSyntax
---

diff --git a/Control/OldException.hs b/Control/OldException.hs
index f0435d6..4fa787f 100644
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -132,7 +132,6 @@ module Control.OldException {-# DEPRECATED "Future versions of base will not sup
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
-import GHC.Num
 import GHC.Show
 -- import GHC.IO ( IO )
 import GHC.IO.Handle.FD ( stdout )
diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index 458497b..9b007d4 100644
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -47,7 +47,6 @@ import Unsafe.Coerce
 #ifdef __GLASGOW_HASKELL__
 import GHC.Base
 import GHC.Show
-import GHC.Num
 import GHC.Exception
 #endif
 
diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 3fec639..e606294 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -93,7 +93,7 @@ import GHC.Base
 import GHC.Show         (Show(..), ShowS,
                          shows, showString, showChar, showParen)
 import GHC.Err          (undefined)
-import GHC.Num          (Integer, fromInteger, (+))
+import GHC.Num          (Integer, (+))
 import GHC.Real         ( rem, Ratio )
 import GHC.IORef        (IORef,newIORef)
 import GHC.IO           (unsafePerformIO,mask_)
diff --git a/Foreign/Marshal/Alloc.hs b/Foreign/Marshal/Alloc.hs
index bbc2b98..5c86155 100644
--- a/Foreign/Marshal/Alloc.hs
+++ b/Foreign/Marshal/Alloc.hs
@@ -68,7 +68,6 @@ import GHC.Real
 import GHC.Ptr
 import GHC.Err
 import GHC.Base
-import GHC.Num
 #elif defined(__NHC__)
 import NHC.FFI                  ( FinalizerPtr, CInt(..) )
 import IO                       ( bracket )
diff --git a/GHC/Conc/IO.hs b/GHC/Conc/IO.hs
index ee0013c..785239c 100644
--- a/GHC/Conc/IO.hs
+++ b/GHC/Conc/IO.hs
@@ -46,7 +46,6 @@ module GHC.Conc.IO
 #endif
         ) where
 
-import Control.Monad
 import Foreign
 import GHC.Base
 import GHC.Conc.Sync as Sync
diff --git a/GHC/Conc/Signal.hs b/GHC/Conc/Signal.hs
index 8871b34..6d300c6 100644
--- a/GHC/Conc/Signal.hs
+++ b/GHC/Conc/Signal.hs
@@ -21,7 +21,6 @@ import GHC.Conc.Sync (forkIO)
 import GHC.IO (mask_, unsafePerformIO)
 import GHC.IOArray (IOArray, boundsIOArray, newIOArray, unsafeReadIOArray,
                     unsafeWriteIOArray)
-import GHC.Num (fromInteger)
 import GHC.Real (fromIntegral)
 import GHC.Word (Word8)
 
diff --git a/GHC/Conc/Sync.lhs b/GHC/Conc/Sync.lhs
index b00c851..a75eee8 100644
--- a/GHC/Conc/Sync.lhs
+++ b/GHC/Conc/Sync.lhs
@@ -97,7 +97,6 @@ import GHC.IO.Exception
 import GHC.Exception
 import GHC.IORef
 import GHC.MVar
-import GHC.Num          ( Num(..) )
 import GHC.Real         ( fromIntegral )
 import GHC.Pack         ( packCString# )
 import GHC.Show         ( Show(..), showString )
diff --git a/GHC/ForeignPtr.hs b/GHC/ForeignPtr.hs
index 0d22e4e..8206241 100644
--- a/GHC/ForeignPtr.hs
+++ b/GHC/ForeignPtr.hs
@@ -46,7 +46,6 @@ import GHC.IORef
 import GHC.STRef        ( STRef(..) )
 import GHC.Ptr          ( Ptr(..), FunPtr(..) )
 import GHC.Err
-import GHC.Num          ( fromInteger )
 
 #include "Typeable.h"
 
diff --git a/GHC/IO/Handle/FD.hs b/GHC/IO/Handle/FD.hs
index 98b7472..9a319fe 100644
--- a/GHC/IO/Handle/FD.hs
+++ b/GHC/IO/Handle/FD.hs
@@ -21,7 +21,6 @@ module GHC.IO.Handle.FD (
  ) where
 
 import GHC.Base
-import GHC.Num
 import GHC.Real
 import GHC.Show
 import Data.Maybe
diff --git a/GHC/Pack.lhs b/GHC/Pack.lhs
index 47c10ec..f3e9609 100644
--- a/GHC/Pack.lhs
+++ b/GHC/Pack.lhs
@@ -37,7 +37,6 @@ module GHC.Pack
 import GHC.Base
 import GHC.List ( length )
 import GHC.ST
-import GHC.Num
 import GHC.Ptr
 
 data ByteArray ix              = ByteArray        ix ix ByteArray#
diff --git a/GHC/ST.lhs b/GHC/ST.lhs
index 7d8e0e2..e3e24bf 100644
--- a/GHC/ST.lhs
+++ b/GHC/ST.lhs
@@ -20,7 +20,6 @@ module GHC.ST where
 
 import GHC.Base
 import GHC.Show
-import GHC.Num
 
 default ()
 \end{code}
diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs
index c97e1db..baca833 100644
--- a/GHC/Unicode.hs
+++ b/GHC/Unicode.hs
@@ -31,7 +31,6 @@ module GHC.Unicode (
 import GHC.Base
 import GHC.Real        (fromIntegral)
 import Foreign.C.Types (CInt)
-import GHC.Num         (fromInteger)
 
 #include "HsBaseConfig.h"
 
diff --git a/System/Event/Control.hs b/System/Event/Control.hs
index 75a5ad0..159cbce 100644
--- a/System/Event/Control.hs
+++ b/System/Event/Control.hs
@@ -27,7 +27,6 @@ import Control.Monad (when)
 import Foreign.ForeignPtr (ForeignPtr)
 import GHC.Base
 import GHC.Conc.Signal (Signal)
-import GHC.Num (Num(..))
 import GHC.Real (fromIntegral)
 import GHC.Show (Show)
 import GHC.Word (Word8)
diff --git a/System/Event/Manager.hs b/System/Event/Manager.hs
index a4579f6..46569eb 100644
--- a/System/Event/Manager.hs
+++ b/System/Event/Manager.hs
@@ -53,7 +53,7 @@ import GHC.Base
 import GHC.Conc.Signal (runHandlers)
 import GHC.List (filter)
 import GHC.Num (Num(..))
-import GHC.Real ((/), fromIntegral, fromRational)
+import GHC.Real ((/), fromIntegral )
 import GHC.Show (Show(..))
 import System.Event.Clock (getCurrentTime)
 import System.Event.Control
diff --git a/System/Timeout.hs b/System/Timeout.hs
index f27a936..431f709 100644
--- a/System/Timeout.hs
+++ b/System/Timeout.hs
@@ -27,7 +27,6 @@ import Control.Concurrent  (forkIO, threadDelay, myThreadId, killThread)
 import Control.Exception   (Exception, handleJust, throwTo, bracket)
 import Data.Typeable
 import Data.Unique         (Unique, newUnique)
-import GHC.Num
 
 -- An internal type that is thrown as a dynamic exception to
 -- interrupt the running IO computation when the timeout has