diff options
| author | simonpj@microsoft.com <unknown> | 2009-07-06 11:22:01 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-07-06 11:22:01 +0000 |
| commit | d436c70d43fb905c63220040168295e473f4b90a (patch) | |
| tree | ce7dd3b7faca1c31e82a3ec4a44fa9a32186c556 /compiler/utils | |
| parent | 0bde11509ca13d4d0914496ee652d7c2b43a0420 (diff) | |
| download | haskell-d436c70d43fb905c63220040168295e473f4b90a.tar.gz | |
Trim unused imports detected by new unused-import code
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Binary.hs | 4 | ||||
| -rw-r--r-- | compiler/utils/Encoding.hs | 1 | ||||
| -rw-r--r-- | compiler/utils/FastMutInt.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/Outputable.lhs | 6 | ||||
| -rw-r--r-- | compiler/utils/Util.lhs | 3 |
5 files changed, 5 insertions, 11 deletions
diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index 11f3b12317..3577f9173d 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -71,9 +71,6 @@ import BasicTypes import Foreign import Data.Array -import Data.Bits -import Data.Int -import Data.Word import Data.IORef import Data.Char ( ord, chr ) import Data.Typeable @@ -84,7 +81,6 @@ import System.IO.Error ( mkIOError, eofErrorType ) import GHC.Real ( Ratio(..) ) import GHC.Exts import GHC.Word ( Word8(..) ) -import System.IO ( openBinaryFile ) #if __GLASGOW_HASKELL__ >= 611 import GHC.IO ( IO(..) ) diff --git a/compiler/utils/Encoding.hs b/compiler/utils/Encoding.hs index e14f1e749a..336d9f0474 100644 --- a/compiler/utils/Encoding.hs +++ b/compiler/utils/Encoding.hs @@ -31,7 +31,6 @@ module Encoding ( import Foreign import Data.Char import Numeric -import Data.Bits import GHC.Ptr ( Ptr(..) ) import GHC.Base diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index dfa188ed2a..1b2b05eb9f 100644 --- a/compiler/utils/FastMutInt.lhs +++ b/compiler/utils/FastMutInt.lhs @@ -28,7 +28,7 @@ import GHC.Base import GHC.Ptr #if __GLASGOW_HASKELL__ >= 611 -import GHC.IO ( IO(..) ) +-- import GHC.IO ( IO(..) ) #else import GHC.IOBase ( IO(..) ) #endif diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index ed47609d10..bdad4d3eb1 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -37,13 +37,13 @@ module Outputable ( printForC, printForAsm, printForUser, printForUserPartWay, pprCode, mkCodeStyle, showSDoc, showSDocOneLine, - showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine, - showPpr, + showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine, + showPpr, showSDocUnqual, showsPrecSDoc, pprInfixVar, pprPrefixVar, pprHsChar, pprHsString, pprHsInfix, pprHsVar, - pprFastFilePath, + pprFastFilePath, -- * Controlling the style in which output is printed BindingSite(..), diff --git a/compiler/utils/Util.lhs b/compiler/utils/Util.lhs index af81110476..62ab5f9fa5 100644 --- a/compiler/utils/Util.lhs +++ b/compiler/utils/Util.lhs @@ -84,9 +84,8 @@ import System.IO.Unsafe ( unsafePerformIO ) import Data.IORef ( readIORef, writeIORef ) import Data.List hiding (group) -import qualified Data.List as List ( elem ) #ifdef DEBUG -import qualified Data.List as List ( notElem ) +import qualified Data.List as List ( elem, notElem ) import FastTypes #endif |