From 307cb1b1094c73fd15eab378c27ac0073696b739 Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Tue, 19 Aug 2025 03:56:40 +0000
Subject: Improves formatting

---
 hsm-log/Hsm/Log.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'hsm-log')

diff --git a/hsm-log/Hsm/Log.hs b/hsm-log/Hsm/Log.hs
index 088be8e..73da4bd 100644
--- a/hsm-log/Hsm/Log.hs
+++ b/hsm-log/Hsm/Log.hs
@@ -51,12 +51,7 @@ getLoggerIO = do
     when (severity <= level) $ do
       time <- formatISO8601Millis <$> getCurrentTime
       putStrLn . applyWhen (severity == Attention) red $
-        printf
-          "%s %s [%s] %s"
-          time
-          (symbolVal $ Proxy @d)
-          (show severity)
-          message
+        printf "%s %s [%s] %s" time (symbolVal $ Proxy @d) (show severity) message
 
 logMsg
   :: forall d es
@@ -64,8 +59,7 @@ logMsg
   => Severity
   -> String
   -> Eff es ()
-logMsg severity message =
-  getLoggerIO >>= \loggerIO -> unsafeEff_ $ loggerIO severity message
+logMsg severity message = getLoggerIO >>= \loggerIO -> unsafeEff_ $ loggerIO severity message
 
 runLog
   :: forall d es a
-- 
cgit v1.2.1