Use new definition for lefmostLongestParse

4 days ago · 324e5da82d
parent 05e5548aa9
commit 324e5da82d
1 changed files with 1 additions and 1 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -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