aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 23:22:58 +0000
committerIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 23:22:58 +0000
commit2d7277c12c02d29165d4da5570bd2b97aeab97f9 (patch)
treeae6c600fb8d63c9f7a03bb5dbfac12cd8fee5614 /src/Haddock
parent9002080fcf385e56e0ff4373ea7e8e440fd7d74f (diff)
Types: ghc >= 6.10
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,