From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 2 Aug 2021 17:42:27 +0000 (-0400)
Subject: fix missing new lines in processTranscript
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~91^2~7
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=86bd9ac18653b3bc8743bf0bd875ea69b11e42bd;p=git-annex.git

fix missing new lines in processTranscript
---

diff --git a/Utility/Process/Transcript.hs b/Utility/Process/Transcript.hs
index e720a289e7..7bf94ffa05 100644
--- a/Utility/Process/Transcript.hs
+++ b/Utility/Process/Transcript.hs
@@ -86,7 +86,7 @@ processTranscript'' cp input = do
   where
 	asyncreader pid h = async $ reader pid h []
 	reader pid h c = hGetLineUntilExitOrEOF pid h >>= \case
-		Nothing -> return (concat (reverse c))
+		Nothing -> return (unlines (reverse c))
 		Just l -> reader pid h (l:c)
 	writeinput (Just s) p = do
 		let inh = stdinHandle p