From 5142f916a7d40af80a250311c43e502a56a63b11 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 22 Dec 1997 11:43:06 +0000
Subject: [PATCH] [project @ 1997-12-22 11:43:06 by simonm] fix for the
getWorkerIdAndCons bug.
---
ghc/compiler/stranal/WorkWrap.lhs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 822af1e5e07c..4a749243e24c 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
--
GitLab