X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;fp=ghc%2Fcompiler%2Fmain%2FCodeOutput.lhs;h=ce12d0cc0ca48a947792cf74092a28cf1074f8b0;hb=78b72ed1e0ffab668e0d4bb31657942970515e4f;hp=24d67910a4ae3a5200b43ea61bba024d61aa75ad;hpb=2909e581ddf0162ad2c113e17a8f19991862b89c;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/CodeOutput.lhs b/ghc/compiler/main/CodeOutput.lhs
index 24d6791..ce12d0c 100644
--- a/ghc/compiler/main/CodeOutput.lhs
+++ b/ghc/compiler/main/CodeOutput.lhs
@@ -71,7 +71,7 @@ codeOutput dflags this_mod foreign_stubs pkg_deps flat_abstractC
 		; let lints = map cmmLint flat_abstractC
 		; case firstJust lints of
 			Just err -> do { printDump err
-				       ; ghcExit 1
+				       ; ghcExit dflags 1
 				       }
 			Nothing  -> return ()
 		}