diff options
Diffstat (limited to 'src/Haddock/Exception.hs')
| -rw-r--r-- | src/Haddock/Exception.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Haddock/Exception.hs b/src/Haddock/Exception.hs index 73ec2c5d..df6d3236 100644 --- a/src/Haddock/Exception.hs +++ b/src/Haddock/Exception.hs @@ -1,14 +1,16 @@ module Haddock.Exception ( HaddockException, throwE -)where +) where + import Data.Typeable import Control.Exception + data HaddockException = HaddockException String deriving Typeable throwE str = throwDyn (HaddockException str) + instance Show HaddockException where show (HaddockException str) = str - |