From e296da4bfef21c55fc23376300becb17a08eea83 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 9 Sep 2011 01:45:41 -0400
Subject: more newline fixes

Adds a missing newline when a longnote is followed by a endresult.

Multiple longnotes in a row will now be separated by a blank line, which
could be a bug or a feature depending on taste.

Removed several places where newlines were explicitly displayed after
longnotes.
---
 Messages.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Messages.hs')

diff --git a/Messages.hs b/Messages.hs
index 492251981..c663c17c2 100644
--- a/Messages.hs
+++ b/Messages.hs
@@ -57,7 +57,7 @@ showOutput :: Annex ()
 showOutput = handle q $ putStr "\n"
 
 showLongNote :: String -> Annex ()
-showLongNote s = handle (JSON.note s) $ putStr $ '\n' : indent s
+showLongNote s = handle (JSON.note s) $ putStrLn $ '\n' : indent s
 
 showEndOk :: Annex ()
 showEndOk = showEndResult True
-- 
cgit v1.2.3