diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-10-10 14:43:04 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-10-10 14:43:04 +0000 |
| commit | a5ad7c01155f362d7d4bdbd164a3776787473a2a (patch) | |
| tree | e2a2b7fcedc0b3d56122430c933b06565763b715 | |
| parent | 58810a8c0de29301c6881ed6e87ad1e6e8a23d24 (diff) | |
no need for handleErrMsg now, we don't throw any ErrMsgs
| -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 |