464491e · typeable/control-logger

git.iko.soy/typeable/control-logger

Fix build.

commit464491e6497d3ecbaa2b245bafa6603040a13a3e authorNick <nick@typeable.io> dateThu 24 Aug 2023, 21:38 (3 years ago) parentc83d792

1 file changed+4−4

unifiedsplit

src/Control/Logger.hs+4−4

@@ -76,28 +76,28 @@ logInfoWith

7676 => Logger

7777 -> Text

7878 -> m ()

79−logInfoWith logger msg = withFrozenCallStack (logMsgWith logger Info msg)

79+logInfoWith logger msg = withFrozenCallStack (logMsgWith logger mempty Info msg)

8080

8181logDebugWith

8282 :: (MonadIO m, HasCallStack)

8383 => Logger

8484 -> Text

8585 -> m ()

86−logDebugWith logger msg = withFrozenCallStack (logMsgWith logger Debug msg)

86+logDebugWith logger msg = withFrozenCallStack (logMsgWith logger mempty Debug msg)

8787

8888logWarnWith

8989 :: (MonadIO m, HasCallStack)

9090 => Logger

9191 -> Text

9292 -> m ()

93−logWarnWith logger msg = withFrozenCallStack (logMsgWith logger Warn msg)

93+logWarnWith logger msg = withFrozenCallStack (logMsgWith logger mempty Warn msg)

9494

9595logErrorWith

9696 :: (MonadIO m, HasCallStack)

9797 => Logger

9898 -> Text

9999 -> m ()

100−logErrorWith logger msg = withFrozenCallStack (logMsgWith logger Error msg)

100+logErrorWith logger msg = withFrozenCallStack (logMsgWith logger mempty Error msg)

101101

102102-- | Log exceptions occured in computation and just ignore them.

103103tryLogError