X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FFloatIn.lhs;h=d46cb38314641befd9f63cd0c3c25f571572f323;hb=3aafdc1609ee60c4d5629b279c45ccbb943fa4a7;hp=0ac42959ffc23f9322d1f823af2a91bc42b3fe70;hpb=ec576735c81107dc2947abfd6c9a74b3d0103c4b;p=ghc-hetmet.git

diff --git a/compiler/simplCore/FloatIn.lhs b/compiler/simplCore/FloatIn.lhs
index 0ac4295..d46cb38 100644
--- a/compiler/simplCore/FloatIn.lhs
+++ b/compiler/simplCore/FloatIn.lhs
@@ -21,7 +21,7 @@ import CoreSyn
 import CoreUtils	( exprIsHNF, exprIsDupable )
 import CoreLint		( showPass, endPass )
 import CoreFVs		( CoreExprWithFVs, freeVars, freeVarsOf, idRuleVars )
-import Id		( isOneShotBndr )
+import Id		( isOneShotBndr, idType )
 import Var
 import Type		( isUnLiftedType )
 import VarSet