src/Haddock/Exception.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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