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

3 weeks ago · e025614324
parent e711444066
commit e025614324
1 changed files with 4 additions and 1 deletions
--- a/app/Main.hs
+++ b/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