Add function to pretty print; commented out my word wrap and use a

built-in one instead

app/Main.hs

@@ -24,7 +24,7 @@ main = do
     [] -> getContents
     x : _ -> readFile x
   let res = leftmostLongestParse parseDocument fileContents
-  let toPrint = show res
+  let toPrint = prettyPrint res
   case reverse toPrint of
     '\n' : _ -> putStr toPrint
     _ -> putStrLn toPrint