From: simonm <unknown>
Date: Mon, 22 Dec 1997 11:43:06 +0000 (+0000)
Subject: [project @ 1997-12-22 11:43:06 by simonm]
X-Git-Tag: Approx_2487_patches~1131
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5142f916a7d40af80a250311c43e502a56a63b11;p=ghc-hetmet.git

[project @ 1997-12-22 11:43:06 by simonm]
fix for the getWorkerIdAndCons bug.
---

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 822af1e..4a74924 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -245,6 +245,9 @@ getWorkerIdAndCons wrap_id wrapper_fn
     go (Lam _ body)		      	  = go body
     go (Case _ (AlgAlts [(con,_,rhs)] _)) = let (wrap_id, cons) = go rhs
 					    in  (wrap_id, cons `addOneToIdSet` con)
+    go (Let (NonRec _ (Coerce (CoerceOut con) _ _)) body) 
+					  = let (wrap_id, cons) = go body
+					    in  (wrap_id, cons `addOneToIdSet` con)
     go other	 		      	  = (get_work_id other, emptyIdSet)
 
     get_work_id (App fn _)    = get_work_id fn