From 2d7277c12c02d29165d4da5570bd2b97aeab97f9 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Sun, 23 Aug 2009 23:22:58 +0000 Subject: Types: ghc >= 6.10 --- src/Haddock/Types.hs | 4 ---- 1 file changed, 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, -- cgit v1.2.3