diff options
| author | Paul Oliver <contact@pauloliver.dev> | 2025-08-19 03:56:40 +0000 |
|---|---|---|
| committer | Paul Oliver <contact@pauloliver.dev> | 2025-08-23 22:59:12 +0000 |
| commit | 307cb1b1094c73fd15eab378c27ac0073696b739 (patch) | |
| tree | 730949857bd356a7d1f1739b1c8c28967d0461e4 /hsm-log | |
| parent | 4efe903a671b288ac485f2d2a9c9aabf2eb7b199 (diff) | |
Improves formatting
Diffstat (limited to 'hsm-log')
| -rw-r--r-- | hsm-log/Hsm/Log.hs | 10 |
1 files changed, 2 insertions, 8 deletions
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 |