X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUtils.lhs;h=103b294098e1ddca28abe5bf4529cf4d5e940dd0;hb=a51fe79ebcdcb8285573a18f12cade2101533419;hp=1a217043262624cd7e5c518a8f108f7e0dcb2087;hpb=d2ce0f52d42edf32bb9f13796e6ba6edba8bd516;p=ghc-hetmet.git diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 1a21704..103b294 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -72,6 +72,7 @@ import CostCentre import Unique import Outputable import TysPrim +import PrelNames( absentErrorIdKey ) import FastString import Maybes import Util @@ -670,7 +671,10 @@ exprOkForSpeculation (Case e _ _ alts) exprOkForSpeculation other_expr = case collectArgs other_expr of - (Var f, args) -> spec_ok (idDetails f) args + (Var f, args) | f `hasKey` absentErrorIdKey -- Note [Absent error Id] + -> all exprOkForSpeculation args -- in WwLib + | otherwise + -> spec_ok (idDetails f) args _ -> False where