21b0cc4 · typeable/control-logger

git.iko.soy/typeable/control-logger

on master help sign in

Fix unfrozen Control.Logger.oneoffLog callstack (#5585)

21b0cc4Ville Tirronen6 years ago

src/Control/Logger.hs+2−1

@@ -142,7 +142,8 @@ logExceptions ma = catch ma $ \e -> do

142 throwM e

143

144oneoffLog :: MonadIO m => Logger -> LogSeverity -> Text -> m ()

145+oneoffLog logger s t =

145−oneoffLog logger s t = flip runReaderT logger $ logMsg s t

146+ withFrozenCallStack (flip runReaderT logger $ logMsg s t)

146

147

147fileLogger :: MonadIO m => FilePath -> m Logger

148fileLogger :: MonadIO m => FilePath -> m Logger

148fileLogger fp = fastFunc <$> liftIO (newFileLoggerSet defaultBufSize fp)

149fileLogger fp = fastFunc <$> liftIO (newFileLoggerSet defaultBufSize fp)