21b0cc4 · typeable/control-logger

git.iko.soy/typeable/control-logger

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

commit21b0cc404ffbd9f1af220f897746ff5ae19fa400 authorVille Tirronen <ville@typeable.io> dateMon 14 Dec 2020, 14:58 (6 years ago) parenta5ad7be

1 file changed+2−1

unifiedsplit

src/Control/Logger.hs+2−1

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

142142 throwM e

143143

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

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

145+oneoffLog logger s t =

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

146147

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

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