From 058d3710e17e93c027b9aec88e341d24796148bf Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 28 May 2000 23:24:43 +0000
Subject: [PATCH] [project @ 2000-05-28 23:24:43 by panne] Don't forget litlit
alternatives when deciding if an expression should make its way into an
interface file. *please merge*
---
ghc/compiler/coreSyn/CoreUnfold.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 480edbb50548..02db3cbf6400 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -466,7 +466,8 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e
go (App fun arg) = go fun && go arg
go (Lam _ body) = go body
go (Let binds body) = and (map go (body :rhssOfBind binds))
- go (Case scrut bndr alts) = and (map go (scrut:rhssOfAlts alts))
+ go (Case scrut bndr alts) = and (map go (scrut:rhssOfAlts alts)) &&
+ not (any isLitLitLit [ lit | (LitAlt lit, _, _) <- alts ])
go (Note _ body) = go body
go (Type _) = True
--
GitLab