Additional tests

2024-12-29 12:22:24 -06:00
parent dbe9cbd6c1
commit 8a2dc2dfcf
4 changed files with 17 additions and 7 deletions
--- a/src/Lexer.hs
+++ b/src/Lexer.hs
@ -79,10 +79,8 @@ comment :: Lexer LToken
 comment = do
  string "--"
  content <- many (satisfy (/= '\n'))
-  optional (char '\n')
  pure (LComment content)

-
 sc :: Lexer ()
 sc = skipMany (void (char ' ') <|> void (char '\t') <|> void comment)