From: simonm <unknown>
Date: Wed, 22 Jul 1998 08:51:41 +0000 (+0000)
Subject: [project @ 1998-07-22 08:51:41 by simonm]
X-Git-Tag: Approx_2487_patches~504
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9295c823c44381afc7f661498655554f31671288;p=ghc-hetmet.git

[project @ 1998-07-22 08:51:41 by simonm]
Correct type error in previous commit.
---

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index c165062..e66b2e9 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -594,7 +594,7 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e
 	      BindDefault _ rhs -> rhs:ls
 
     -- ok to unfold a PrimOp as long as it's not a _casm_
-    okToUnfoldPrimOp (CCallOp _ is_casm _ _ _ _) = not is_casm
-    okToUnfoldPrimOp _                           = True
+    okToUnfoldPrimOp (CCallOp _ is_casm _ _ _) = not is_casm
+    okToUnfoldPrimOp _                         = True
      
 \end{code}