From: Ian Lynagh <igloo@earth.li>
Date: Wed, 12 Aug 2009 13:38:17 +0000 (+0000)
Subject: Fix a sanity check; fixes #3089
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8864c6d9180aa95796feb01910ec22459520ec87

Fix a sanity check; fixes #3089
---

diff --git a/rts/Sanity.c b/rts/Sanity.c
index d666d57..49bbff7 100644
--- a/rts/Sanity.c
+++ b/rts/Sanity.c
@@ -236,7 +236,7 @@ checkPAP (StgClosure *tagged_fun, StgClosure** payload, StgWord n_args)
 	break;
     }
 
-    ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(tagged_fun) == 1
+    ASSERT(fun_info->f.arity > TAG_MASK ? GET_CLOSURE_TAG(tagged_fun) == 0
            : GET_CLOSURE_TAG(tagged_fun) == fun_info->f.arity);
 }