Fixed the infinite loop

This commit is contained in:
vegowotenks 2025-02-13 23:39:17 +01:00
parent b87917dc2e
commit c12458a2bf
3 changed files with 8 additions and 7 deletions

View file

@ -6,4 +6,4 @@ main :: IO ()
main = do
text <- getContents
print $ Parsec.parse (File.parse <* Parsec.eof) "<stdin>" text
print $ Parsec.parse (File.parse "<stdin>" <* Parsec.eof) "<stdin>" text