From 0e271e92565344d9e41d2ae544422d0ce77211af Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 04:54:13 +0000 Subject: [PATCH] [project @ 1997-05-26 04:54:13 by sof] Updated imports --- ghc/compiler/coreSyn/CoreUtils.lhs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs index c1388e3..471e2b5 100644 --- a/ghc/compiler/coreSyn/CoreUtils.lhs +++ b/ghc/compiler/coreSyn/CoreUtils.lhs @@ -21,7 +21,6 @@ module CoreUtils ( ) where IMP_Ubiq() -IMPORT_DELOOPER(IdLoop) -- for pananoia-checking purposes import CoreSyn @@ -31,19 +30,19 @@ import Id ( idType, mkSysLocal, isBottomingId, dataConRepType, addOneToIdEnv, growIdEnvList, lookupIdEnv, isNullIdEnv, SYN_IE(IdEnv), - GenId{-instances-} + GenId{-instances-}, SYN_IE(Id) ) import Literal ( literalType, isNoRepLit, Literal(..) ) import Maybes ( catMaybes, maybeToBool ) import PprCore -import PprStyle ( PprStyle(..) ) -import PprType ( GenType{-instances-} ) +import Outputable ( PprStyle(..), Outputable(..) ) +import PprType ( GenType{-instances-}, GenTyVar ) import Pretty ( vcat, text ) import PrimOp ( primOpType, PrimOp(..) ) import SrcLoc ( noSrcLoc ) import TyVar ( cloneTyVar, isNullTyVarEnv, addOneToTyVarEnv, SYN_IE(TyVarEnv), - SYN_IE(TyVar) + SYN_IE(TyVar), GenTyVar ) import Type ( mkFunTy, mkForAllTy, mkForAllUsageTy, mkTyVarTy, getFunTyExpandingDicts_maybe, applyTy, isPrimType, @@ -51,6 +50,7 @@ import Type ( mkFunTy, mkForAllTy, mkForAllUsageTy, mkTyVarTy, SYN_IE(Type) ) import TysWiredIn ( trueDataCon, falseDataCon ) +import Unique ( Unique ) import UniqSupply ( initUs, returnUs, thenUs, mapUs, mapAndUnzipUs, getUnique, SYN_IE(UniqSM), UniqSupply @@ -58,7 +58,6 @@ import UniqSupply ( initUs, returnUs, thenUs, import Usage ( SYN_IE(UVar) ) import Util ( zipEqual, panic, pprTrace, pprPanic, assertPanic ) import Pretty -import Outputable ( Outputable(..) ) type TypeEnv = TyVarEnv Type applyUsage = panic "CoreUtils.applyUsage:ToDo" -- 1.7.10.4