From 08e02e4aa3f2350737bf46fc8deda70b215887c3 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 1 Feb 2000 16:02:12 +0000
Subject: [PATCH] [project @ 2000-02-01 16:02:12 by sewardj]
 primOpStrictness(CatchOp): catch# isn't strict in its first
 arg.

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

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 0c7461e..305c6f7 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -933,7 +933,7 @@ primOpStrictness WriteMutVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
 primOpStrictness PutMVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
-primOpStrictness CatchOp	  = ([wwStrict, wwLazy, wwPrim], False)
+primOpStrictness CatchOp	  = ([wwLazy, wwLazy, wwPrim], False)
 primOpStrictness RaiseOp	  = ([wwLazy], True)	-- NB: True => result is bottom
 primOpStrictness BlockAsyncExceptionsOp    = ([wwLazy], False)
 primOpStrictness UnblockAsyncExceptionsOp  = ([wwLazy], False)
-- 
1.7.10.4