diff options
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 |