X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;fp=ghc%2Fcompiler%2FsimplCore%2FFoldrBuildWW.lhs;h=99fa850513912ec747071f88a218bf84ac9fa1f2;hb=7d61cb61daa5e433a0cb85b34b7f0c58b2f961ff;hp=7c97d5415154d4467cc5ebe9c177cd67f2d66018;hpb=b8875f2f7f596482228645b9751f8f9c592a84c5;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/FoldrBuildWW.lhs b/ghc/compiler/simplCore/FoldrBuildWW.lhs
index 7c97d54..99fa850 100644
--- a/ghc/compiler/simplCore/FoldrBuildWW.lhs
+++ b/ghc/compiler/simplCore/FoldrBuildWW.lhs
@@ -8,38 +8,43 @@
 
 module FoldrBuildWW ( mkFoldrBuildWW ) where
 
-IMPORT_Trace
-import Outputable
-import Pretty
-import Type		( cloneTyVarFromTemplate, mkTyVarTy,
-			  splitTypeWithDictsAsArgs, eqTyCon,  mkForallTy )
-import TysPrim		( alphaTy )
-import TyVar		( alphaTyVar )
-
-import Type		( Type(..) ) -- **** CAN SEE THE CONSTRUCTORS ****
-import UniqSupply	( runBuiltinUs )
-import WwLib            -- share the same monad (is this eticit ?)
-import PrelInfo		( listTyCon, mkListTy, nilDataCon, consDataCon,
-			  foldrId, buildId
-			)
-import Id               ( getIdFBTypeInfo, mkWorkerId, getIdInfo,
-			  replaceIdInfo, mkSysLocal, idType
-			)
-import IdInfo
-import Maybes
-import SrcLoc		( mkUnknownSrcLoc, SrcLoc )
-import Util
+import Ubiq{-uitous-}
+
+import CoreSyn		( CoreBinding(..) )
+import Util		( panic{-ToDo:rm?-} )
+
+--import Type		( cloneTyVarFromTemplate, mkTyVarTy,
+--			  splitTypeWithDictsAsArgs, eqTyCon,  mkForallTy )
+--import TysPrim		( alphaTy )
+--import TyVar		( alphaTyVar )
+--
+--import Type		( Type(..) ) -- **** CAN SEE THE CONSTRUCTORS ****
+--import UniqSupply	( runBuiltinUs )
+--import WwLib            -- share the same monad (is this eticit ?)
+--import PrelInfo		( listTyCon, mkListTy, nilDataCon, consDataCon,
+--			  foldrId, buildId
+--			)
+--import Id               ( getIdFBTypeInfo, mkWorkerId, getIdInfo,
+--			  replaceIdInfo, mkSysLocal, idType
+--			)
+--import IdInfo
+--import Maybes
+--import SrcLoc		( mkUnknownSrcLoc, SrcLoc )
+--import Util
 \end{code}
 
 \begin{code}
 mkFoldrBuildWW
-	:: (GlobalSwitch -> Bool)
-	-> UniqSupply
+	:: UniqSupply
 	-> [CoreBinding]
 	-> [CoreBinding]
-mkFoldrBuildWW switch us top_binds =
+
+mkFoldrBuildWW = panic "mkFoldrBuildWW (ToDo)"
+
+{- LATER:
+mkFoldrBuildWW us top_binds =
    (mapWw wwBind top_binds `thenWw` \ top_binds2 ->
-   returnWw (concat top_binds2)) us switch
+   returnWw (concat top_binds2)) us
 \end{code}
 
 \begin{code}
@@ -176,5 +181,5 @@ try_split_bind id expr =
 	else
 	returnWw  [(worker_id,worker_rhs),(wrapper_id,wrapper_rhs)]
     _ -> returnWw [(id,expr')]
+-}
 \end{code}
-