add evaluation of blocks
This commit is contained in:
parent
f7ea85f08f
commit
fa5783b6e1
|
@ -63,6 +63,8 @@ eval (StrConst s) = return $ StrV s
|
||||||
|
|
||||||
eval UnitConst = return UnitV
|
eval UnitConst = return UnitV
|
||||||
|
|
||||||
|
eval (Block body) = foldr1 (>>) $ map eval body
|
||||||
|
|
||||||
eval (ListConst v) =
|
eval (ListConst v) =
|
||||||
mapM eval v >>= \xs ->
|
mapM eval v >>= \xs ->
|
||||||
return $ ListV xs
|
return $ ListV xs
|
||||||
|
|
Loading…
Reference in New Issue