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

simplify scanner error type

Browse source
This commit is contained in:
Oleg Sobolev 2025-12-30 06:58:23 +03:00
parent ef7dc3603d
commit 8eeb671692
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Main.hs
View file

@ -8,7 +8,7 @@ run :: String -> IO ()
run source = do
let tokensMaybe = scanTokensFromSource source
case tokensMaybe of
Left UnexpectedCharacterError -> putStrLn "Unexpected character"
Left (LexicalError s) -> putStrLn s
Right tokens -> do
let stmtMaybe = parse tokens
case stmtMaybe of
@ -19,7 +19,7 @@ runEval :: String -> IO ()
runEval source = do
let tokensMaybe = scanTokensFromSource source
object <- case tokensMaybe of
Left UnexpectedCharacterError -> putStrLn "Unexpected character" >> return NullObject
Left (LexicalError s) -> putStrLn s >> return NullObject
Right tokens -> do
let exprMaybe = parseExpression tokens
case exprMaybe of