lerasimus/crafting-interpreters-hs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bad token function naming

Browse source
This commit is contained in:
Oleg Sobolev 2025-12-25 18:48:12 +03:00
parent b5001499d7
commit 7bec9392c3
3 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Lox/Interpreter.hs
View file

@ -16,7 +16,7 @@ interpret (Literal value) = return value
interpret (Grouping expr) = interpret expr
interpret (Unary op expr) = do
right <- interpret expr
case (getType op, right) of
case (tokenType op, right) of
(MINUS, NumberObject x) -> return $ NumberObject (-x)
(BANG, NullObject) -> return $ BoolObject False
(BANG, BoolObject x) -> return $ BoolObject (not x)
@ -25,7 +25,7 @@ interpret (Unary op expr) = do
interpret (Binary leftExpr op rightExpr) = do
left <- interpret leftExpr
right <- interpret rightExpr
case (getType op, left, right) of
case (tokenType op, left, right) of
(PLUS, NumberObject x, NumberObject y) -> return $ NumberObject (x + y)
(MINUS, NumberObject x, NumberObject y) -> return $ NumberObject (x - y)
(SLASH, NumberObject x, NumberObject y) -> return $ NumberObject (x / y)