diff options
| -rw-r--r-- | src/Main.hs | 6 |
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 |