From bcfdbbe5a48c7d18089c3d4a2e2758a3b9291482 Mon Sep 17 00:00:00 2001 From: simonpj Date: Fri, 16 Jul 1999 09:34:38 +0000 Subject: [PATCH 1/1] [project @ 1999-07-16 09:34:38 by simonpj] * Fix trivial bug in WwLib.mkWWfixup, which showed up when booting the compiler. --- ghc/compiler/stranal/WwLib.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 -- 1.7.10.4