[project @ 2004-01-12 14:36:28 by simonpj]

[ghc-hetmet.git] / ghc / compiler / ndpFlatten / FlattenMonad.hs

diff --git a/ghc/compiler/ndpFlatten/FlattenMonad.hs b/ghc/compiler/ndpFlatten/FlattenMonad.hs
index cbdc206..944d10a 100644 (file)
--- a/ghc/compiler/ndpFlatten/FlattenMonad.hs
+++ b/ghc/compiler/ndpFlatten/FlattenMonad.hs
@@ -68,7 +68,7 @@ import Panic        (panic)
 import Outputable   (Outputable(ppr), pprPanic)
 import UniqSupply   (UniqSupply, splitUniqSupply, uniqFromSupply)
 import OccName     (UserFS)
-import Var          (Var(..))
+import Var          (Var, idType)
 import Id          (Id, mkSysLocal)
 import Name        (Name)
 import VarSet       (VarSet, emptyVarSet, extendVarSet, varSetElems )