From a5ad7c01155f362d7d4bdbd164a3776787473a2a Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 10 Oct 2008 14:43:04 +0000
Subject: no need for handleErrMsg now, we don't throw any ErrMsgs

---
 src/Main.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3