diff options
Diffstat (limited to 'src/Haddock/Exception.hs')
-rw-r--r-- | src/Haddock/Exception.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/Haddock/Exception.hs b/src/Haddock/Exception.hs deleted file mode 100644 index eabc722e..00000000 --- a/src/Haddock/Exception.hs +++ /dev/null @@ -1,34 +0,0 @@ --- --- Haddock - A Haskell Documentation Tool --- --- (c) Simon Marlow 2003 --- - - -{-# LANGUAGE DeriveDataTypeable #-} - - -module Haddock.Exception ( - HaddockException, - throwE -) where - - -import Data.Typeable -import Control.Exception - - -data HaddockException = HaddockException String deriving Typeable - - -instance Show HaddockException where - show (HaddockException str) = str - - -throwE :: String -> a -#if __GLASGOW_HASKELL__ >= 609 -instance Exception HaddockException -throwE str = throw (HaddockException str) -#else -throwE str = throwDyn (HaddockException str) -#endif |