diff options
| author | David Waern <unknown> | 2007-08-17 11:16:48 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-08-17 11:16:48 +0000 |
| commit | 070a0d9cd70eca65400b9a10fe7b0d45424fe498 (patch) | |
| tree | 6e8e07e40bcb6d6888445d3f62973190a39844be /src/Haddock/Exception.hs | |
| parent | 050b525fb33ca60a9e4a374eab19b65d585ab1e8 (diff) | |
Move options out of Main into Haddock.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 - |