diff --git a/app/Main.hs b/app/Main.hs
index 2c02db0..957f9ba 100644
--- 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