[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 (file)
--- 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