X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FMain.hs;fp=ghc%2FMain.hs;h=06a5cebd921b29f4be50625bd47604564638c390;hb=1246293616fc45787ecaed13aa31a2555510f7e3;hp=766577eac8d83af59a94da87d48c2ca83db14b42;hpb=348370462d762e64354ac430b4f973fcf1cb71dc;p=ghc-hetmet.git

diff --git a/ghc/Main.hs b/ghc/Main.hs
index 766577e..06a5ceb 100644
--- a/ghc/Main.hs
+++ b/ghc/Main.hs
@@ -153,7 +153,11 @@ main =
   let flagWarnings = staticFlagWarnings
                   ++ modeFlagWarnings
                   ++ dynamicFlagWarnings
-  liftIO $ handleFlagWarnings dflags2 flagWarnings
+
+  handleSourceError (\e -> do
+       GHC.printExceptionAndWarnings e
+       liftIO $ exitWith (ExitFailure 1)) $
+    handleFlagWarnings dflags2 flagWarnings
 
         -- make sure we clean up after ourselves
   GHC.defaultCleanupHandler dflags2 $ do