[project @ 2000-03-08 15:58:30 by simonmar]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUnfold.lhs

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index 18caca2..a7a23a3 100644 (file)
--- 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))