diff options
| author | davve@dtek.chalmers.se <David Waern> | 2007-03-25 00:46:48 +0000 |
|---|---|---|
| committer | davve@dtek.chalmers.se <David Waern> | 2007-03-25 00:46:48 +0000 |
| commit | 6f55aa8b181d1cfcfb415a87733e530809332573 (patch) | |
| tree | 4a9118ef06555ec818c1711ab61eb994758e481e /src/Haddock/Exception.hs | |
| parent | a7077e5f38d08888459acb33e276e29ce733f206 (diff) | |
Start work on Haddock API
Diffstat (limited to 'src/Haddock/Exception.hs')
| -rw-r--r-- | src/Haddock/Exception.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Haddock/Exception.hs b/src/Haddock/Exception.hs new file mode 100644 index 00000000..73ec2c5d --- /dev/null +++ b/src/Haddock/Exception.hs @@ -0,0 +1,14 @@ +module Haddock.Exception ( + HaddockException, + throwE +)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 + |