Use new definition for lefmostLongestParse
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user