[commit: ghc] master: rts: Fix type of bool literal (0ac5e0c)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/0ac5e0cb9afc9c15386f381ed41bf514ee2ffde7/ghc

>---------------------------------------------------------------

commit 0ac5e0cb9afc9c15386f381ed41bf514ee2ffde7
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Thu Dec 1 12:25:00 2016 -0500

    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


>---------------------------------------------------------------

0ac5e0cb9afc9c15386f381ed41bf514ee2ffde7
 rts/Exception.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 2a07eaa..a27227d 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",