From 0ac5e0cb9afc9c15386f381ed41bf514ee2ffde7 Mon Sep 17 00:00:00 2001
From: Ben Gamari <bgamari.foss@gmail.com>
Date: Thu, 1 Dec 2016 12:25:00 -0500
Subject: rts: Fix type of bool literal

Test Plan: Build `p` way

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2779
---
 rts/Exception.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'rts/Exception.cmm')

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 2a07eaa6f3..a27227d547 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -456,7 +456,7 @@ stg_raisezh /* explicit stack */
     /* 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::I32) {
+    if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags) != 0::CBool) {
         SAVE_THREAD_STATE();
         ccall fprintCCS_stderr(CCCS "ptr",
                                      exception "ptr",
-- 
cgit v1.2.1