From: Ian Lynagh <igloo@earth.li>
Date: Tue, 7 Jul 2009 11:58:10 +0000 (+0000)
Subject: Remove unused imports
X-Git-Tag: ghc-darcs-git-switchover~370
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2bd1dc47b168dfbd253e5d86cbcc1627ccf2e8c2;p=ghc-base.git

Remove unused imports
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index 4318825..444d3fc 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -133,9 +133,7 @@ import GHC.Read         ( Read )
 import GHC.Enum         ( Enum )
 #endif
 import GHC.Pack         ( packCString# )
-import GHC.Ptr          ( Ptr(..) )
 import GHC.Show         ( Show(..), showString )
-import Data.Typeable
 import GHC.Err
 
 infixr 0 `par`, `pseq`
diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index af115b8..1300c96 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -18,7 +18,6 @@
 module GHC.ConsoleHandler
 #if !defined(mingw32_HOST_OS) && !defined(__HADDOCK__)
         where
-import Prelude -- necessary to get dependencies right
 #else /* whole file */
         ( Handler(..)
         , installHandler
@@ -30,8 +29,6 @@ import Prelude -- necessary to get dependencies right
 #include "Signals.h"
 -}
 
-import Prelude -- necessary to get dependencies right
-
 import Foreign
 import Foreign.C
 import GHC.IO.FD
diff --git a/GHC/IO/Encoding/Iconv.hs b/GHC/IO/Encoding/Iconv.hs
index a935a25..b8fcfd9 100644
--- a/GHC/IO/Encoding/Iconv.hs
+++ b/GHC/IO/Encoding/Iconv.hs
@@ -35,8 +35,6 @@ import Foreign
 import Foreign.C
 import Data.Maybe
 import GHC.Base
-import GHC.Word
-import GHC.IO
 import GHC.IO.Buffer
 import GHC.IO.Encoding.Types
 import GHC.Num
diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index bf7c619..8e52584 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -30,7 +30,9 @@ import GHC.Real
 import GHC.Show
 import GHC.Enum
 import Data.Maybe
--- import Control.Monad
+#ifndef mingw32_HOST_OS
+import Control.Monad
+#endif
 import Data.Typeable
 
 import GHC.IO