projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e3ce0f4
)
Warning Police: Unused imports
author
Michael D. Adams
<adamsmd@cs.indiana.edu>
Fri, 13 Jul 2007 20:19:13 +0000
(20:19 +0000)
committer
Michael D. Adams
<adamsmd@cs.indiana.edu>
Fri, 13 Jul 2007 20:19:13 +0000
(20:19 +0000)
12 files changed:
compat/Compat/Directory.hs
patch
|
blob
|
history
compiler/basicTypes/Unique.lhs
patch
|
blob
|
history
compiler/utils/Util.lhs
patch
|
blob
|
history
utils/genprimopcode/Lexer.x
patch
|
blob
|
history
utils/genprimopcode/ParserM.hs
patch
|
blob
|
history
utils/hpc/Hpc.hs
patch
|
blob
|
history
utils/hpc/HpcCombine.hs
patch
|
blob
|
history
utils/hpc/HpcDraft.hs
patch
|
blob
|
history
utils/hpc/HpcFlags.hs
patch
|
blob
|
history
utils/hpc/HpcMarkup.hs
patch
|
blob
|
history
utils/hpc/HpcReport.hs
patch
|
blob
|
history
utils/hpc/HpcShowTix.hs
patch
|
blob
|
history
diff --git
a/compat/Compat/Directory.hs
b/compat/Compat/Directory.hs
index
c44b50f
..
4d7cb4b
100644
(file)
--- 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 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
#else
import System.IO ( try )
#endif
diff --git
a/compiler/basicTypes/Unique.lhs
b/compiler/basicTypes/Unique.lhs
index
a0b28f8
..
b1fd5b7
100644
(file)
--- a/
compiler/basicTypes/Unique.lhs
+++ b/
compiler/basicTypes/Unique.lhs
@@
-54,7
+54,6
@@
import BasicTypes
import PackageConfig
import FastString
import Outputable
import PackageConfig
import FastString
import Outputable
-import FastTypes
import GHC.Exts
import Data.Char ( chr, ord )
import GHC.Exts
import Data.Char ( chr, ord )
diff --git
a/compiler/utils/Util.lhs
b/compiler/utils/Util.lhs
index
8473faf
..
bfb499a
100644
(file)
--- a/
compiler/utils/Util.lhs
+++ b/
compiler/utils/Util.lhs
@@
-79,9
+79,12
@@
module Util (
#include "HsVersions.h"
#include "HsVersions.h"
-import Panic ( panic, trace )
import FastTypes
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 )
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 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 )
#ifndef DEBUG
import Data.List ( zipWith4 )
+#else
+import qualified Data.List as List ( notElem )
#endif
import Control.Monad ( when )
#endif
import Control.Monad ( when )
diff --git
a/utils/genprimopcode/Lexer.x
b/utils/genprimopcode/Lexer.x
index
8d0c3e9
..
2b8289a
100644
(file)
--- 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,
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)
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
(file)
--- a/
utils/genprimopcode/ParserM.hs
+++ b/
utils/genprimopcode/ParserM.hs
@@
-18,8
+18,6
@@
module ParserM (
happyError
) where
happyError
) where
-import Syntax
-
-- Parser Monad
newtype ParserM a = ParserM (AlexInput -> St -> Either String (AlexInput, St, a))
-- 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
(file)
--- a/
utils/hpc/Hpc.hs
+++ b/
utils/hpc/Hpc.hs
@@
-1,7
+1,6
@@
-- (c) 2007 Andy Gill
-- Main driver for Hpc
-- (c) 2007 Andy Gill
-- Main driver for Hpc
-import Trace.Hpc.Tix
import HpcFlags
import System.Environment
import System.Exit
import HpcFlags
import System.Environment
import System.Exit
diff --git
a/utils/hpc/HpcCombine.hs
b/utils/hpc/HpcCombine.hs
index
d16ace9
..
9788c41
100644
(file)
--- 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 Control.Monad
import qualified HpcSet as Set
import qualified HpcMap as Map
-import System.Environment
------------------------------------------------------------------------------
combine_options =
------------------------------------------------------------------------------
combine_options =
diff --git
a/utils/hpc/HpcDraft.hs
b/utils/hpc/HpcDraft.hs
index
bf67213
..
4391bd0
100644
(file)
--- 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 Control.Monad
import qualified HpcSet as Set
import qualified HpcMap as Map
-import System.Environment
import HpcUtils
import Data.Tree
import HpcUtils
import Data.Tree
diff --git
a/utils/hpc/HpcFlags.hs
b/utils/hpc/HpcFlags.hs
index
eb9a197
..
49ebb50
100644
(file)
--- a/
utils/hpc/HpcFlags.hs
+++ b/
utils/hpc/HpcFlags.hs
@@
-3,7
+3,6
@@
module HpcFlags where
import System.Console.GetOpt
module HpcFlags where
import System.Console.GetOpt
-import Data.Maybe ( fromMaybe )
import qualified HpcSet as Set
import Data.Char
import Trace.Hpc.Tix
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
(file)
--- a/
utils/hpc/HpcMarkup.hs
+++ b/
utils/hpc/HpcMarkup.hs
@@
-11,7
+11,6
@@
import Trace.Hpc.Util
import HpcFlags
import HpcFlags
-import System.Environment
import System.Directory
import Data.List
import Data.Maybe(fromJust)
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
(file)
--- a/
utils/hpc/HpcReport.hs
+++ b/
utils/hpc/HpcReport.hs
@@
-5,9
+5,7
@@
module HpcReport (report_plugin) where
module HpcReport (report_plugin) where
-import System.Exit
import Prelude hiding (exp)
import Prelude hiding (exp)
-import System(getArgs)
import List(sort,intersperse)
import HpcFlags
import Trace.Hpc.Mix
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
(file)
--- 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.Mix
import Trace.Hpc.Tix
-import Trace.Hpc.Util
import HpcFlags
import HpcFlags