Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (15 sloc) 551 Bytes
module FLNV.Error (Error(..), throwError, MonadError) where
import Text.ParserCombinators.Parsec (ParseError)
import Control.Monad.Error (throwError, MonadError)
import qualified Control.Monad.Error as E
import FLNV.Expression
data Error = Error String
| ReadErr ParseError
| SyntaxError String Expression
| InternalError String
| Undefined String
| DuplicateBinding String
deriving Show
instance E.Error Error where
noMsg = Error "An error has occurred"
strMsg = Error
Something went wrong with that request. Please try again.