Rockingcool/md-to-html
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use new definition for lefmostLongestParse

Browse Source
This commit is contained in:
Aadhavan Srinivasan
2025-06-03 11:19:42 -04:00
parent 05e5548aa9
commit 324e5da82d
1 changed files with 1 additions and 1 deletions

2
app/Main.hs

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