no need for handleErrMsg now, we don't throw any ErrMsgs

1 files changed, 2 insertions, 4 deletions

diff --git a/src/Main.hs b/src/Main.hs
index d2b99f11..fb1c54fd 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -101,15 +101,13 @@ handleHaddockExceptions inner =
 
 handleGhcExceptions inner = 
   -- compilation errors: messages with locations attached
-#if __GLASGOW_HASKELL__ >= 609
-  handleErrMsg (\e -> do
-#else
+#if __GLASGOW_HASKELL__ < 609
  handleDyn (\e -> do
-#endif
     putStrLn "haddock: Compilation error(s):"
     printBagOfErrors defaultDynFlags (unitBag e)
     exitFailure
   ) $
+#endif
 
   -- error messages propagated as exceptions
 #if __GLASGOW_HASKELL__ >= 609