@@ -51,53 +51,53 @@ logError
5151 :: (LoggingMonad r m)
5252 => Text
5353 -> m ()
54−logError = withFrozenCallStack . logMsg Error
54+logError msg = withFrozenCallStack (logMsg Error msg)
5555
5656logDebug
5757 :: (LoggingMonad r m)
5858 => Text
5959 -> m ()
60−logDebug = withFrozenCallStack . logMsg Debug
60+logDebug msg = withFrozenCallStack (logMsg Debug msg)
6161
6262logInfo
6363 :: (LoggingMonad r m)
6464 => Text
6565 -> m ()
66−logInfo = withFrozenCallStack . logMsg Info
66+logInfo msg = withFrozenCallStack (logMsg Info msg)
6767
6868logWarn
6969 :: (LoggingMonad r m)
7070 => Text
7171 -> m ()
72−logWarn = withFrozenCallStack . logMsg Warn
72+logWarn msg = withFrozenCallStack (logMsg Warn msg)
7373
7474logInfoWith
7575 :: (MonadIO m, HasCallStack)
7676 => Logger
7777 -> Text
7878 -> m ()
79−logInfoWith logger = withFrozenCallStack . logMsgWith logger Info
79+logInfoWith logger msg = withFrozenCallStack (logMsgWith logger Info msg)
8080
8181logDebugWith
8282 :: (MonadIO m, HasCallStack)
8383 => Logger
8484 -> Text
8585 -> m ()
86−logDebugWith logger = withFrozenCallStack . logMsgWith logger Debug
86+logDebugWith logger msg = withFrozenCallStack (logMsgWith logger Debug msg)
8787
8888logWarnWith
8989 :: (MonadIO m, HasCallStack)
9090 => Logger
9191 -> Text
9292 -> m ()
93−logWarnWith logger = withFrozenCallStack . logMsgWith logger Warn
93+logWarnWith logger msg = withFrozenCallStack (logMsgWith logger Warn msg)
9494
9595logErrorWith
9696 :: (MonadIO m, HasCallStack)
9797 => Logger
9898 -> Text
9999 -> m ()
100−logErrorWith logger = withFrozenCallStack . logMsgWith logger Error
100+logErrorWith logger msg = withFrozenCallStack (logMsgWith logger Error msg)
101101
102102-- | Log exceptions occured in computation and just ignore them.
103103tryLogError