[project @ 1997-05-19 00:10:00 by sof]

[ghc-hetmet.git] / ghc / compiler / simplCore / FloatIn.lhs

diff --git a/ghc/compiler/simplCore/FloatIn.lhs b/ghc/compiler/simplCore/FloatIn.lhs
index 29ce8a9..9356bb2 100644 (file)
--- a/ghc/compiler/simplCore/FloatIn.lhs
+++ b/ghc/compiler/simplCore/FloatIn.lhs
@@ -23,7 +23,7 @@ import CoreSyn
 
 import FreeVars
 import Id              ( emptyIdSet, unionIdSets, unionManyIdSets,
-                         elementOfIdSet, SYN_IE(IdSet), GenId
+                         elementOfIdSet, SYN_IE(IdSet), GenId, SYN_IE(Id)
                        )
 import Util            ( nOfThem, panic, zipEqual )
 \end{code}