prevent exitFailure.

2012-06-04 15:40:26 +09:00 · 2012-06-04 15:40:26 +09:00 · a40f293d43
commit a40f293d43
parent 111058562a
1 changed files with 2 additions and 1 deletions
--- a/GHCApi.hs
+++ b/GHCApi.hs
@ -21,8 +21,9 @@ withGHC body = ghandle ignore $ runGhc (Just libdir) $ do
  where
    ignore :: Alternative m => SomeException -> IO (m a)
    ignore e = do
+        hPutStr stderr "Dummy:0:0:Error:"
        hPrint stderr e
-        exitFailure
+        exitSuccess

 ----------------------------------------------------------------