git.iko.soy/typeable/control-logger
on master help sign in
swap
2478ebf3 ahead, 0 behind
2 files changed+4−4
since splitsnapshots
unifiedsplit
control-logger.cabal+2−2 src/Control/Logger/Orphans.hs+2−2
control-logger.cabal+2−2
@@ -19,13 +19,13 @@ library
1919 exposed-modules: Control.Logger.Internal
2020 build-depends:
2121 , aeson
22− , base
22+ , base >=4.11
2323 , bytestring
2424 , control-has
2525 , control-has-katip
2626 , deepseq
2727 , exceptions
28− , fast-logger
28+ , fast-logger >=2.4.11
2929 , http-client
3030 , lens
3131 , monad-logger
src/Control/Logger/Orphans.hs+2−2
@@ -10,7 +10,7 @@ import Control.EnvT
1010import Control.Has
1111import Control.Logger.Internal
1212import Control.Monad.Logger
13−import qualified Data.Text as T
13+import qualified Data.Text.Encoding as T
1414import GHC.Stack
1515
1616
@@ -21,7 +21,7 @@ instance (Has Logger r, MonadIO m)
2121 in withFrozenCallStack
2222 $ logMsg
2323 (mlLevelToLogSeverity level)
24− (T.pack . show . toLogStr $ msg)
24+ (T.decodeUtf8Lenient . fromLogStr . toLogStr $ msg)
2525
2626locToCallStack :: Loc -> CallStack
2727locToCallStack Loc {..} = fromCallSiteList