From: Michael D. Adams <adamsmd@cs.indiana.edu>
Date: Fri, 13 Jul 2007 20:19:13 +0000 (+0000)
Subject: Warning Police: Unused imports
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3da243bf737dc3e26dfbfa943df1fda1ce7c1bab

Warning Police: Unused imports
---

diff --git a/compat/Compat/Directory.hs b/compat/Compat/Directory.hs
index c44b50f..4d7cb4b 100644
--- a/compat/Compat/Directory.hs
+++ b/compat/Compat/Directory.hs
@@ -31,7 +31,7 @@ import Control.Monad		( when )
 import Foreign.Marshal.Alloc	( allocaBytes )
 import System.IO (IOMode(..), openBinaryFile, hGetBuf, hPutBuf, hClose)
 import System.IO.Error		( try )
-import GHC.IOBase ( IOException(..), IOErrorType(..) )
+import GHC.IOBase ( IOException(..) )
 #else
 import System.IO		( try )
 #endif
diff --git a/compiler/basicTypes/Unique.lhs b/compiler/basicTypes/Unique.lhs
index a0b28f8..b1fd5b7 100644
--- a/compiler/basicTypes/Unique.lhs
+++ b/compiler/basicTypes/Unique.lhs
@@ -54,7 +54,6 @@ import BasicTypes
 import PackageConfig
 import FastString
 import Outputable
-import FastTypes
 
 import GHC.Exts
 import Data.Char	( chr, ord )
diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs
index 8473faf..bfb499a 100644
--- a/compiler/utils/Util.lhs
+++ b/compiler/utils/Util.lhs
@@ -79,9 +79,12 @@ module Util (
 
 #include "HsVersions.h"
 
-import Panic		( panic, trace )
 import FastTypes
 
+#ifdef DEBUG
+import Panic		( panic, trace )
+#endif
+
 import Control.Exception ( Exception(..), finally, catchDyn, throw )
 import qualified Control.Exception as Exception
 import Data.Dynamic	( Typeable )
@@ -89,10 +92,11 @@ import Data.IORef	( IORef, newIORef )
 import System.IO.Unsafe	( unsafePerformIO )
 import Data.IORef	( readIORef, writeIORef )
 
-import qualified Data.List as List ( elem, notElem )
-
+import qualified Data.List as List ( elem )
 #ifndef DEBUG
 import Data.List		( zipWith4 )
+#else
+import qualified Data.List as List ( notElem )
 #endif
 
 import Control.Monad	( when )
diff --git a/utils/genprimopcode/Lexer.x b/utils/genprimopcode/Lexer.x
index 8d0c3e9..2b8289a 100644
--- a/utils/genprimopcode/Lexer.x
+++ b/utils/genprimopcode/Lexer.x
@@ -3,7 +3,7 @@
 module Lexer (lex_tok) where
 
 import ParserM (ParserM (..), mkT, mkTv, Token(..), St, start_code,
-                StartCode, Action, set_start_code,
+                set_start_code,
                 inc_brace_depth, dec_brace_depth,
                 show_pos, position, input,
                 AlexInput, alexGetChar, alexInputPrevChar)
diff --git a/utils/genprimopcode/ParserM.hs b/utils/genprimopcode/ParserM.hs
index d70947b..edc300d 100644
--- a/utils/genprimopcode/ParserM.hs
+++ b/utils/genprimopcode/ParserM.hs
@@ -18,8 +18,6 @@ module ParserM (
     happyError
  ) where
 
-import Syntax
-
 -- Parser Monad
 newtype ParserM a = ParserM (AlexInput -> St -> Either String (AlexInput, St, a))
 
diff --git a/utils/hpc/Hpc.hs b/utils/hpc/Hpc.hs
index 5db2b30..3eb25d2 100644
--- a/utils/hpc/Hpc.hs
+++ b/utils/hpc/Hpc.hs
@@ -1,7 +1,6 @@
 -- (c) 2007 Andy Gill
 
 -- Main driver for Hpc
-import Trace.Hpc.Tix
 import HpcFlags
 import System.Environment
 import System.Exit
diff --git a/utils/hpc/HpcCombine.hs b/utils/hpc/HpcCombine.hs
index d16ace9..9788c41 100644
--- a/utils/hpc/HpcCombine.hs
+++ b/utils/hpc/HpcCombine.hs
@@ -13,7 +13,6 @@ import HpcFlags
 import Control.Monad
 import qualified HpcSet as Set
 import qualified HpcMap as Map
-import System.Environment
 
 ------------------------------------------------------------------------------
 combine_options = 
diff --git a/utils/hpc/HpcDraft.hs b/utils/hpc/HpcDraft.hs
index bf67213..4391bd0 100644
--- a/utils/hpc/HpcDraft.hs
+++ b/utils/hpc/HpcDraft.hs
@@ -9,7 +9,6 @@ import HpcFlags
 import Control.Monad
 import qualified HpcSet as Set
 import qualified HpcMap as Map
-import System.Environment
 import HpcUtils
 import Data.Tree
 
diff --git a/utils/hpc/HpcFlags.hs b/utils/hpc/HpcFlags.hs
index eb9a197..49ebb50 100644
--- a/utils/hpc/HpcFlags.hs
+++ b/utils/hpc/HpcFlags.hs
@@ -3,7 +3,6 @@
 module HpcFlags where
 
 import System.Console.GetOpt
-import Data.Maybe ( fromMaybe )
 import qualified HpcSet as Set
 import Data.Char
 import Trace.Hpc.Tix
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index 001ec29..d4f4ee6 100644
--- a/utils/hpc/HpcMarkup.hs
+++ b/utils/hpc/HpcMarkup.hs
@@ -11,7 +11,6 @@ import Trace.Hpc.Util
 
 import HpcFlags
 
-import System.Environment
 import System.Directory
 import Data.List
 import Data.Maybe(fromJust)
diff --git a/utils/hpc/HpcReport.hs b/utils/hpc/HpcReport.hs
index 8f063f8..2fa79f6 100644
--- a/utils/hpc/HpcReport.hs
+++ b/utils/hpc/HpcReport.hs
@@ -5,9 +5,7 @@
 
 module HpcReport (report_plugin) where
 
-import System.Exit
 import Prelude hiding (exp)
-import System(getArgs)
 import List(sort,intersperse)
 import HpcFlags
 import Trace.Hpc.Mix
diff --git a/utils/hpc/HpcShowTix.hs b/utils/hpc/HpcShowTix.hs
index 79c9fa3..68b74a9 100644
--- a/utils/hpc/HpcShowTix.hs
+++ b/utils/hpc/HpcShowTix.hs
@@ -2,7 +2,6 @@ module HpcShowTix (showtix_plugin) where
 
 import Trace.Hpc.Mix
 import Trace.Hpc.Tix
-import Trace.Hpc.Util
 
 import HpcFlags