From: simonpj <unknown>
Date: Fri, 16 Jul 1999 09:34:38 +0000 (+0000)
Subject: [project @ 1999-07-16 09:34:38 by simonpj]
X-Git-Tag: Approximately_9120_patches~5974
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bcfdbbe5a48c7d18089c3d4a2e2758a3b9291482;hp=f50706ea524f96270c84b6b9bed07785e684b344;p=ghc-hetmet.git

[project @ 1999-07-16 09:34:38 by simonpj]
* Fix trivial bug in WwLib.mkWWfixup,
  which showed up when booting the compiler.
---

diff --git a/ghc/compiler/stranal/WwLib.lhs b/ghc/compiler/stranal/WwLib.lhs
index c545ad5..235bd91 100644
--- a/ghc/compiler/stranal/WwLib.lhs
+++ b/ghc/compiler/stranal/WwLib.lhs
@@ -19,15 +19,15 @@ import Id		( Id, idType, mkSysLocal, getIdDemandInfo, setIdDemandInfo,
 			)
 import IdInfo		( CprInfo(..), noCprInfo, vanillaIdInfo )
 import Const		( Con(..), DataCon )
-import DataCon		( splitProductType_maybe, isExistentialDataCon, dataConArgTys )
+import DataCon		( isExistentialDataCon, dataConArgTys )
 import Demand		( Demand(..) )
 import PrelInfo		( realWorldPrimId, aBSENT_ERROR_ID )
 import TysPrim		( realWorldStatePrimTy )
 import TysWiredIn	( unboxedTupleCon, unboxedTupleTyCon )
-import Type		( isUnLiftedType, mkTyVarTys, mkTyVarTy, mkFunTys,
+import Type		( isUnLiftedType, 
 			  splitForAllTys, splitFunTys, splitFunTysN,
-			  splitAlgTyConApp_maybe, splitAlgTyConApp,
-			  mkTyConApp, splitNewType_maybe,
+			  splitAlgTyConApp_maybe, splitNewType_maybe,
+			  mkTyConApp, 
 			  Type
 			)
 import TyCon            ( isNewTyCon, isProductTyCon, TyCon )
@@ -345,7 +345,7 @@ mkWWfixup res_ty no_worker_args
     let
 	    void_arg = mk_ww_local void_arg_uniq realWorldStatePrimTy
     in
-    returnUs (\ call_to_worker -> App call_to_worker (Var void_arg),
+    returnUs (\ call_to_worker -> App call_to_worker (Var realWorldPrimId),
 	      \ worker_body    -> Lam void_arg worker_body)
 
   | otherwise