git.iko.soy/typeable/control-logger
on master help sign in
SSO-1696 - Unbreak call stack in Logger (#5573)
a5ad7beVille Tirronen
src/Control/Logger.hs+8−8
compare with master
unifiedsplit
@@ -51,53 +51,53 @@ logError
51 :: (LoggingMonad r m)
51 :: (LoggingMonad r m)
52 => Text
52 => Text
53 -> m ()
53 -> m ()
54−logError = withFrozenCallStack . logMsg Error
54+logError msg = withFrozenCallStack (logMsg Error msg)
55
55
56logDebug
56logDebug
57 :: (LoggingMonad r m)
57 :: (LoggingMonad r m)
58 => Text
58 => Text
59 -> m ()
59 -> m ()
60−logDebug = withFrozenCallStack . logMsg Debug
60+logDebug msg = withFrozenCallStack (logMsg Debug msg)
61
61
62logInfo
62logInfo
63 :: (LoggingMonad r m)
63 :: (LoggingMonad r m)
64 => Text
64 => Text
65 -> m ()
65 -> m ()
66−logInfo = withFrozenCallStack . logMsg Info
66+logInfo msg = withFrozenCallStack (logMsg Info msg)
67
67
68logWarn
68logWarn
69 :: (LoggingMonad r m)
69 :: (LoggingMonad r m)
70 => Text
70 => Text
71 -> m ()
71 -> m ()
72−logWarn = withFrozenCallStack . logMsg Warn
72+logWarn msg = withFrozenCallStack (logMsg Warn msg)
73
73
74logInfoWith
74logInfoWith
75 :: (MonadIO m, HasCallStack)
75 :: (MonadIO m, HasCallStack)
76 => Logger
76 => Logger
77 -> Text
77 -> Text
78 -> m ()
78 -> m ()
79−logInfoWith logger = withFrozenCallStack . logMsgWith logger Info
79+logInfoWith logger msg = withFrozenCallStack (logMsgWith logger Info msg)
80
80
81logDebugWith
81logDebugWith
82 :: (MonadIO m, HasCallStack)
82 :: (MonadIO m, HasCallStack)
83 => Logger
83 => Logger
84 -> Text
84 -> Text
85 -> m ()
85 -> m ()
86−logDebugWith logger = withFrozenCallStack . logMsgWith logger Debug
86+logDebugWith logger msg = withFrozenCallStack (logMsgWith logger Debug msg)
87
87
88logWarnWith
88logWarnWith
89 :: (MonadIO m, HasCallStack)
89 :: (MonadIO m, HasCallStack)
90 => Logger
90 => Logger
91 -> Text
91 -> Text
92 -> m ()
92 -> m ()
93−logWarnWith logger = withFrozenCallStack . logMsgWith logger Warn
93+logWarnWith logger msg = withFrozenCallStack (logMsgWith logger Warn msg)
94
94
95logErrorWith
95logErrorWith
96 :: (MonadIO m, HasCallStack)
96 :: (MonadIO m, HasCallStack)
97 => Logger
97 => Logger
98 -> Text
98 -> Text
99 -> m ()
99 -> m ()
100−logErrorWith logger = withFrozenCallStack . logMsgWith logger Error
100+logErrorWith logger msg = withFrozenCallStack (logMsgWith logger Error msg)
101
101
102-- | Log exceptions occured in computation and just ignore them.
102-- | Log exceptions occured in computation and just ignore them.
103tryLogError
103tryLogError