Print extra newline if output text doesn't include a newline

app/Main.hs

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