From 9295c823c44381afc7f661498655554f31671288 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 22 Jul 1998 08:51:41 +0000
Subject: [PATCH] [project @ 1998-07-22 08:51:41 by simonm] Correct type error
in previous commit.
---
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 c1650621c9a6..e66b2e9ab17c 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}
--
GitLab