Tests and better default REPL behavior

2024-12-27 14:10:13 -06:00
parent c3c6646cb2
commit 9c1c916fc9
5 changed files with 106 additions and 92 deletions
--- a/src/Parser.hs
+++ b/src/Parser.hs
@ -32,7 +32,6 @@ parseSapling input =
  in map parseSingle nonEmptyLines

 parseSingle :: String -> SaplingAST
-parseSingle "" = error "Empty input provided to parseSingle"
 parseSingle input = case runParser parseExpression "" (lexSapling input) of
  Left err -> error $ handleParseError err
  Right ast -> ast