From bcfdbbe5a48c7d18089c3d4a2e2758a3b9291482 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 16 Jul 1999 09:34:38 +0000
Subject: [PATCH] [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 c545ad58b89b..235bd911174a 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
--
GitLab