Commit 3da243bf authored by Michael D. Adams's avatar Michael D. Adams
Browse files

Warning Police: Unused imports

parent e3ce0f4f
......@@ -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
......
......@@ -54,7 +54,6 @@ import BasicTypes
import PackageConfig
import FastString
import Outputable
import FastTypes
import GHC.Exts
import Data.Char ( chr, ord )
......
......@@ -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 )
......
......@@ -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)
......
......@@ -18,8 +18,6 @@ module ParserM (
happyError
) where
import Syntax
-- Parser Monad
newtype ParserM a = ParserM (AlexInput -> St -> Either String (AlexInput, St, a))
......
-- (c) 2007 Andy Gill
-- Main driver for Hpc
import Trace.Hpc.Tix
import HpcFlags
import System.Environment
import System.Exit
......
......@@ -13,7 +13,6 @@ import HpcFlags
import Control.Monad
import qualified HpcSet as Set
import qualified HpcMap as Map
import System.Environment
------------------------------------------------------------------------------
combine_options =
......
......@@ -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
......
......@@ -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
......
......@@ -11,7 +11,6 @@ import Trace.Hpc.Util
import HpcFlags
import System.Environment
import System.Directory
import Data.List
import Data.Maybe(fromJust)
......
......@@ -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
......
......@@ -2,7 +2,6 @@ module HpcShowTix (showtix_plugin) where
import Trace.Hpc.Mix
import Trace.Hpc.Tix
import Trace.Hpc.Util
import HpcFlags
......
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