diff options
author | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 18:08:32 +0000 |
---|---|---|
committer | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 20:47:11 +0100 |
commit | 2da8a4d1139978db997fc1a4b6690cad5996b536 (patch) | |
tree | 0287aaa9bbe45f5cb9420ccb1c777baa842102a1 /compiler/simplCore/SetLevels.lhs | |
parent | e589a49d8edd8b106d1a8396943466977ceeac0c (diff) | |
download | haskell-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.lhs | 4 |
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 |