From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 20 Jun 2006 15:19:01 +0000 (+0000)
Subject: fix a lint-o
X-Git-Tag: Before_FC_branch_merge~353
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=24ce1351fb121d429375f411a8a95d619de921e1

fix a lint-o
---

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 6e656e0..8ca397b 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -329,7 +329,7 @@ raisezh_fast
     /* ToDo: currently this is a hack.  Would be much better if
      * the info was only displayed for an *uncaught* exception.
      */
-    if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0) {
+    if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0::I32) {
       foreign "C" fprintCCS_stderr(W_[CCCS] "ptr");
     }
 #endif