From ad6863b921e1e0d8fada06d4332ae1b9344a47df Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 12:02:45 +0000
Subject: [PATCH] [project @ 1998-08-14 12:02:45 by sof] okToUnfoldPrimOp:
 CCallOp update

---
 ghc/compiler/coreSyn/CoreUnfold.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index e66b2e9..c165062 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}
-- 
1.7.10.4