git.iko.soy/typeable/control-logger
on master help sign in
Fix build.
464491eNick
src/Control/Logger.hs+4−4
compare with master
unifiedsplit
@@ -76,28 +76,28 @@ logInfoWith
76 => Logger
76 => Logger
77 -> Text
77 -> Text
78 -> m ()
78 -> m ()
79−logInfoWith logger msg = withFrozenCallStack (logMsgWith logger Info msg)
79+logInfoWith logger msg = withFrozenCallStack (logMsgWith logger mempty 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 msg = withFrozenCallStack (logMsgWith logger Debug msg)
86+logDebugWith logger msg = withFrozenCallStack (logMsgWith logger mempty 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 msg = withFrozenCallStack (logMsgWith logger Warn msg)
93+logWarnWith logger msg = withFrozenCallStack (logMsgWith logger mempty 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 msg = withFrozenCallStack (logMsgWith logger Error msg)
100+logErrorWith logger msg = withFrozenCallStack (logMsgWith logger mempty 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