X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcoreSyn%2FCoreLint.lhs;fp=ghc%2Fcompiler%2FcoreSyn%2FCoreLint.lhs;h=fc25c9a27efa550f03f431a4a348a5a7db7af61c;hb=78b72ed1e0ffab668e0d4bb31657942970515e4f;hp=f94314c0537c9c28a256e8e0aa8382a84b76055d;hpb=2909e581ddf0162ad2c113e17a8f19991862b89c;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index f94314c..fc25c9a 100644
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/ghc/compiler/coreSyn/CoreLint.lhs
@@ -67,7 +67,7 @@ endPass dflags pass_name dump_flag binds
 	-- Report result size if required
 	-- This has the side effect of forcing the intermediate to be evaluated
 	debugTraceMsg dflags 2 $
-		"    Result size = " ++ show (coreBindsSize binds)
+		(text "    Result size =" <+> int (coreBindsSize binds))
 
 	-- Report verbosely, if required
 	dumpIfSet_core dflags dump_flag pass_name (pprCoreBindings binds)
@@ -120,7 +120,7 @@ lintCoreBindings dflags whoDunnit binds
   = case (initL (lint_binds binds)) of
       Nothing       -> showPass dflags ("Core Linted result of " ++ whoDunnit)
       Just bad_news -> printDump (display bad_news)	>>
-		       ghcExit 1
+		       ghcExit dflags 1
   where
 	-- Put all the top-level binders in scope at the start
 	-- This is because transformation rules can bring something