hLLVM-0.5.0.0: src/Llvm/Query/Qerror.hs

{-# LANGUAGE  FlexibleContexts  #-}
module Llvm.Query.Qerror 
       (module Llvm.Query.Qerror
       ,module Control.Monad.Error
       ) where
import Control.Monad.Error

data Qerror = QerrIsNotInteger String
            | QerrIsNotConst String
            | QerrWithoutInfo
            | QerrWithInfo String
            deriving (Eq, Ord, Show)

instance Error Qerror where
  noMsg = QerrWithoutInfo
  strMsg s = QerrWithInfo s
  
{-  
suppressQerror :: MonadError Qerror m => m a -> a                        
suppressQerror ma = case catchError ma (\err -> strMsg err) of
  (Right a) -> a
  (Left e) -> error $ show e  
-}