From 2493b18037055a5c284563d10931386e589a79b0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 27 Oct 2010 11:10:03 +0000 Subject: [PATCH] follow changes in the GHC API --- utils/ghctags/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 9093e03..0778784 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 -- 1.7.10.4