diff options
author | David Waern <david.waern@gmail.com> | 2009-06-24 21:07:50 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2009-06-24 21:07:50 +0000 |
commit | d02190da47dfd3712ce72cac6b36604f544dfb2b (patch) | |
tree | a5c0e1c5073802eef4e0fed7d5066289b0627574 /src/Haddock/Exception.hs | |
parent | 1dc4c4b1cdaf8756968f47dee1e544029da362e0 (diff) |
Delete Haddock.Exception and move contents to Haddock.Types
Only a few lines of code that mainly declares a type - why not just put it in Haddock.Types.
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 |