summaryrefslogtreecommitdiff
path: root/compiler/simplCore/SetLevels.lhs
diff options
context:
space:
mode:
authorJose Pedro Magalhaes <jpm@cs.uu.nl>2011-11-16 18:08:32 +0000
committerJose Pedro Magalhaes <jpm@cs.uu.nl>2011-11-16 20:47:11 +0100
commit2da8a4d1139978db997fc1a4b6690cad5996b536 (patch)
tree0287aaa9bbe45f5cb9420ccb1c777baa842102a1 /compiler/simplCore/SetLevels.lhs
parente589a49d8edd8b106d1a8396943466977ceeac0c (diff)
downloadhaskell-2da8a4d1139978db997fc1a4b6690cad5996b536.tar.gz
Move mkPiTypes back to Type, rename mkForAllArrowKinds to mkPiKinds
Diffstat (limited to 'compiler/simplCore/SetLevels.lhs')
-rw-r--r--compiler/simplCore/SetLevels.lhs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index 7e3b44c7d5..a80dea4603 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -63,7 +63,7 @@ module SetLevels (
import CoreSyn
import CoreMonad ( FloatOutSwitches(..) )
-import CoreUtils ( exprType, exprOkForSpeculation, mkPiTypes )
+import CoreUtils ( exprType, exprOkForSpeculation )
import CoreArity ( exprBotStrictness_maybe )
import CoreFVs -- all of it
import Coercion ( isCoVar )
@@ -78,7 +78,7 @@ import Literal ( litIsTrivial )
import Demand ( StrictSig, increaseStrictSigArity )
import Name ( getOccName, mkSystemVarName )
import OccName ( occNameString )
-import Type ( isUnLiftedType, Type, sortQuantVars )
+import Type ( isUnLiftedType, Type, sortQuantVars, mkPiTypes )
import Kind ( kiVarsOfKinds )
import BasicTypes ( Arity )
import UniqSupply