diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-10-27 11:10:03 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-10-27 11:10:03 +0000 |
| commit | 2493b18037055a5c284563d10931386e589a79b0 (patch) | |
| tree | c6925e347a5aa859c367514fcab96e3f1567f5ee /utils | |
| parent | 0729e745e2f13888f9ccc76c10546a52e953fa6f (diff) | |
| download | haskell-2493b18037055a5c284563d10931386e589a79b0.tar.gz | |
follow changes in the GHC API
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghctags/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 9093e032e9..07787841bb 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -195,7 +195,7 @@ safeLoad :: LoadHowMuch -> Ghc SuccessFlag safeLoad mode = do _dflags <- getSessionDynFlags ghandle (\(e :: SomeException) -> liftIO (print e) >> return Failed ) $ - handleSourceError (\e -> printExceptionAndWarnings e >> return Failed) $ + handleSourceError (\e -> printException e >> return Failed) $ load mode @@ -221,7 +221,7 @@ graphData graph handles = do let filename = msHsFilePath ms modname = moduleName $ ms_mod ms in handleSourceError (\e -> do - printExceptionAndWarnings e + printException e liftIO $ exitWith (ExitFailure 1)) $ do liftIO $ putStrLn ("loading " ++ filename) mod <- loadModule =<< typecheckModule =<< parseModule ms |