Warning Police: Unused imports

9 files changed, 1 insertions, 11 deletions

diff --git a/utils/genprimopcode/Lexer.x b/utils/genprimopcode/Lexer.x
index 8d0c3e93ff..2b8289a0f2 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 d70947bb8e..edc300d6cc 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 5db2b30527..3eb25d2506 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 d16ace940a..9788c41259 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 bf672133a1..4391bd0e0d 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 eb9a197b90..49ebb500f8 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 001ec29554..d4f4ee6587 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 8f063f8300..2fa79f60d7 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 79c9fa3428..68b74a9f67 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