From 54e6a4e1fc2313e5462973d8988b714efd6ab9e5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Mar 2000 15:58:30 +0000
Subject: [PATCH] [project @ 2000-03-08 15:58:30 by simonmar]
 okToUnfoldInHiFile: look at args of a Con for litlits.

---
 ghc/compiler/coreSyn/CoreUnfold.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 18caca2..a7a23a3 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -498,7 +498,7 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e
     go (Var _)                = True
     go (Con (Literal lit) _)  = not (isLitLitLit lit)
     go (Con (PrimOp op) args) = okToUnfoldPrimOp op && all go args
-    go (Con con args)         = True -- con args are always atomic
+    go (Con con args)         = all go args -- might be litlits in here
     go (App fun arg)          = go fun && go arg
     go (Lam _ body)           = go body
     go (Let binds body)       = and (map go (body :rhssOfBind binds))
-- 
1.7.10.4