Use new definition for lefmostLongestParse

This commit is contained in:
2025-06-03 11:19:42 -04:00
parent 05e5548aa9
commit 324e5da82d

View File

@@ -23,5 +23,5 @@ main = do
fileContents <- case args of
[] -> getContents
x : _ -> readFile x
let res = fst $ leftmostLongestParse parseDocument fileContents
let res = leftmostLongestParse parseDocument fileContents
print res