From f475100996905ecd48dce9082f5e2010ca6c3a9a Mon Sep 17 00:00:00 2001 From: Georgy Lukyanov Date: Fri, 1 Mar 2024 00:02:16 +0100 Subject: [PATCH] Remove spurious newline from log messages (#531) I did not realize that `defaultLogStr` already adds a newline at the end --- no need to use `hPutStrLn` --- library/Booster/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/Booster/Util.hs b/library/Booster/Util.hs index 156212ede..1e7c916d5 100644 --- a/library/Booster/Util.hs +++ b/library/Booster/Util.hs @@ -111,7 +111,7 @@ handleOutput :: IO () handleOutput levelToHandle loc src level msg = let bytes = Log.fromLogStr $ Log.defaultLogStr loc src level msg - in BS.hPutStrLn (levelToHandle level) bytes + in BS.hPutStr (levelToHandle level) bytes -- | Run a logging computation, redirecting various levels to the handles specified by the first arguments runHandleLoggingT :: (Log.LogLevel -> IO.Handle) -> Log.LoggingT m a -> m a