From: keithw <unknown>
Date: Tue, 13 Jun 2000 15:04:48 +0000 (+0000)
Subject: [project @ 2000-06-13 15:04:48 by keithw]
X-Git-Tag: Approximately_9120_patches~4261
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=67a9242d7444a401056d61499c41e6e6d7555463;p=ghc-hetmet.git

[project @ 2000-06-13 15:04:48 by keithw]
Fix: mkPiType has moved.
---

diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index 2247289..e5f020a 100644
--- a/ghc/compiler/simplCore/SetLevels.lhs
+++ b/ghc/compiler/simplCore/SetLevels.lhs
@@ -42,7 +42,7 @@ module SetLevels (
 
 import CoreSyn
 
-import CoreUtils	( exprType, exprIsTrivial, exprIsBottom )
+import CoreUtils	( exprType, exprIsTrivial, exprIsBottom, mkPiType )
 import CoreFVs		-- all of it
 import Subst
 import Id		( Id, idType, idFreeTyVars, mkSysLocal, isOneShotLambda, modifyIdInfo, 
@@ -54,7 +54,7 @@ import VarSet
 import VarEnv
 import Name		( getOccName )
 import OccName		( occNameUserString )
-import Type		( isUnLiftedType, mkPiType, Type )
+import Type		( isUnLiftedType, Type )
 import BasicTypes	( TopLevelFlag(..) )
 import Demand		( isStrict, wwLazy )
 import UniqSupply