X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=a3e559d48c7791b426638e14b323c1a189268237;hb=26741ec416bae2c502ef00a2ba0e79050a32cb67;hp=40fbba2f9f3565f2eae34321a4e8856eed60331b;hpb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 40fbba2..a3e559d 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -10,7 +10,8 @@ module FoldrBuildWW ( mkFoldrBuildWW ) where
 
 IMP_Ubiq(){-uitous-}
 
-import CoreSyn		( CoreBinding(..) )
+import CoreSyn		( SYN_IE(CoreBinding) )
+import UniqSupply	( UniqSupply )
 import Util		( panic{-ToDo:rm?-} )
 
 --import Type		( cloneTyVarFromTemplate, mkTyVarTy,
@@ -18,7 +19,7 @@ import Util		( panic{-ToDo:rm?-} )
 --import TysPrim		( alphaTy )
 --import TyVar		( alphaTyVar )
 --
---import Type		( Type(..) ) -- **** CAN SEE THE CONSTRUCTORS ****
+--import Type		( SYN_IE(Type) ) -- **** CAN SEE THE CONSTRUCTORS ****
 --import UniqSupply	( runBuiltinUs )
 --import WwLib            -- share the same monad (is this eticit ?)
 --import PrelInfo		( listTyCon, mkListTy, nilDataCon, consDataCon,