module Graphics.ImageMagick.MagickCore.Exception
( MagickWandException(..)
, ExceptionCarrier(..)
, ExceptionSeverity
, ExceptionType
) where
import Control.Exception.Base
import Data.Typeable
import Graphics.ImageMagick.MagickCore.Types
data MagickWandException = MagickWandException ExceptionSeverity ExceptionType String
deriving (Typeable)
instance Show (MagickWandException) where
show (MagickWandException _ x s) = concat [show x, ": ", s]
instance Exception MagickWandException
class ExceptionCarrier a where
getException :: a -> IO MagickWandException