From 67a9242d7444a401056d61499c41e6e6d7555463 Mon Sep 17 00:00:00 2001
From: keithw <unknown>
Date: Tue, 13 Jun 2000 15:04:48 +0000
Subject: [PATCH] [project @ 2000-06-13 15:04:48 by keithw] Fix: mkPiType has
 moved.

---
 ghc/compiler/simplCore/SetLevels.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index 22472899d043..e5f020a6bf8d 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
-- 
GitLab