[project @ 1998-02-03 17:13:54 by simonm]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUtils.lhs

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index bfc21df..1ecaadf 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -29,7 +29,7 @@ import Id             ( idType, mkSysLocal, isBottomingId,
                          addOneToIdEnv, growIdEnvList, lookupIdEnv,
                          isNullIdEnv, IdEnv, Id
                        )
-import Literal         ( literalType, isNoRepLit, Literal(..) )
+import Literal         ( literalType, Literal(..) )
 import Maybes          ( catMaybes, maybeToBool )
 import PprCore
 import PrimOp          ( primOpType, PrimOp(..) )
@@ -46,7 +46,7 @@ import Type           ( mkFunTy, mkForAllTy, mkTyVarTy,
 import TysWiredIn      ( trueDataCon, falseDataCon )
 import Unique          ( Unique )
 import BasicTypes      ( Unused )
-import UniqSupply      ( initUs, returnUs, thenUs,
+import UniqSupply      ( returnUs, thenUs,
                          mapUs, mapAndUnzipUs, getUnique,
                          UniqSM, UniqSupply
                        )