From ad71f005b88ca0bb28b5f394f5a6f128f7c6524a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 12 Apr 2023 12:29:56 -0400
Subject: [PATCH] fix reversion in warning newline

indent removes any trailing newline, so put the trailing newline after
calling indent.

Sponsored-by: unqueued on Patreon
---
 Messages.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Messages.hs b/Messages.hs
index c9f4500a37..3b260af3a6 100644
--- a/Messages.hs
+++ b/Messages.hs
@@ -207,7 +207,7 @@ warning' :: Bool -> (S.ByteString -> S.ByteString) -> StringContainingQuotedPath
 warning' makeway consolewhitespacef w = do
 	when makeway $
 		outputMessage JSON.none id "\n"
-	outputError consolewhitespacef (w <> "\n")
+	outputError (\s -> consolewhitespacef s <> "\n") w
 
 {- Not concurrent output safe. -}
 warningIO :: String -> IO ()
-- 
2.30.2