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.
This commit is contained in:
Joey Hess 2011-09-09 01:45:41 -04:00
parent e4ba0934c2
commit e296da4bfe
4 changed files with 3 additions and 9 deletions

View file

@ -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