feldspar-compiler-0.2: Feldspar/Compiler/Error.hs

module Feldspar.Compiler.Error where

data ErrorClass = InvariantViolation | InternalError
    deriving (Show, Eq)

handleError :: String -> ErrorClass -> String -> a
handleError place errorClass message = error $ "[" ++ show errorClass ++ " @ " ++ place ++ "]: " ++ message