git.iko.soy/typeable/control-logger
on 2debd2b help sign in
2478ebf
swap
0 ahead, 3 behind
control-logger.cabal+2−2
since splitsnapshots
unifiedsplit
@@ -19,13 +19,13 @@ library
19 exposed-modules: Control.Logger.Internal
19 exposed-modules: Control.Logger.Internal
20 build-depends:
20 build-depends:
21 , aeson
21 , aeson
22− , base >=4.11
22+ , base
23 , bytestring
23 , bytestring
24 , control-has
24 , control-has
25 , control-has-katip
25 , control-has-katip
26 , deepseq
26 , deepseq
27 , exceptions
27 , exceptions
28− , fast-logger >=2.4.11
28+ , fast-logger
29 , http-client
29 , http-client
30 , lens
30 , lens
31 , monad-logger
31 , monad-logger
src/Control/Logger/Orphans.hs+2−2
@@ -10,7 +10,7 @@ import Control.EnvT
10import Control.Has
10import Control.Has
11import Control.Logger.Internal
11import Control.Logger.Internal
12import Control.Monad.Logger
12import Control.Monad.Logger
13−import qualified Data.Text.Encoding as T
13+import qualified Data.Text as T
14import GHC.Stack
14import GHC.Stack
15
15
16
16
@@ -21,7 +21,7 @@ instance (Has Logger r, MonadIO m)
21 in withFrozenCallStack
21 in withFrozenCallStack
22 $ logMsg
22 $ logMsg
23 (mlLevelToLogSeverity level)
23 (mlLevelToLogSeverity level)
24− (T.decodeUtf8Lenient . fromLogStr . toLogStr $ msg)
24+ (T.pack . show . toLogStr $ msg)
25
25
26locToCallStack :: Loc -> CallStack
26locToCallStack :: Loc -> CallStack
27locToCallStack Loc {..} = fromCallSiteList
27locToCallStack Loc {..} = fromCallSiteList