@@ -58,16 +58,17 @@ logMsg
59logMsg s t = withFrozenCallStack $ do
59logMsg s t = withFrozenCallStack $ do
60 logger <- view part
60 logger <- view part
61− logMsgWith logger s t
61+ logMsgWith logger mempty s t
64 :: (MonadIO m, HasCallStack)
64 :: (MonadIO m, HasCallStack)
66 -> LogSeverity
67 -> LogSeverity
69−logMsgWith logger s t =
70+logMsgWith logger extra s t =
70− liftIO $ runLogger logger callStack s t
71+ liftIO $ runLogger logger extra callStack s t
72−runLogger :: Logger -> CallStack -> LogSeverity -> Text -> IO ()
73+runLogger :: Logger -> Object -> CallStack -> LogSeverity -> Text -> IO ()
73−runLogger (Logger ctx logger) = logger ctx
74+runLogger (Logger ctx logger) extra = logger (ctx <> extra)