awful lot of error handling
This commit is contained in:
parent
061303ccc0
commit
75a33c2d94
4 changed files with 103 additions and 67 deletions
|
|
@ -8,8 +8,8 @@ import Control.Monad.State
|
|||
|
||||
data InterpreterState = InterpreterState
|
||||
|
||||
eval :: Expr -> Object
|
||||
eval expr = evalState (interpret expr) InterpreterState
|
||||
eval :: Expr -> IO Object
|
||||
eval expr = return $ evalState (interpret expr) InterpreterState
|
||||
|
||||
interpret :: Expr -> State InterpreterState Object
|
||||
interpret (Literal value) = return value
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue