aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Types.hs4
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 544c7575..44c6f4ef 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -360,12 +360,8 @@ instance Show HaddockException where
throwE :: String -> a
-#if __GLASGOW_HASKELL__ >= 609
instance Exception HaddockException
throwE str = throw (HaddockException str)
-#else
-throwE str = throwDyn (HaddockException str)
-#endif
-- In "Haddock.Interface.Create", we need to gather
-- @Haddock.Types.ErrMsg@s a lot, like @ErrMsgM@ does,