git.iko.soy/typeable/control-logger
on master help sign in
swap
2478ebf7 ahead, 0 behind
4 files changed+72−55
since splitsnapshots
unifiedsplit
control-logger.cabal+51−43 src/Control/Logger.hs+2−5 src/Control/Logger/Internal.hs+17−5 src/Control/Logger/Orphans.hs+2−2
control-logger.cabal+51−43
@@ -1,47 +1,55 @@
1−cabal-version: 2.4
2−name: control-logger
3−version: 0.1.0.0
4−synopsis: Logger used by all projects
5−license-file: LICENSE
6−build-type: Simple
1+cabal-version: 2.4
2+name: control-logger
3+version: 0.1.0.0
4+synopsis: Logger used by all projects
5+license-file: LICENSE
6+build-type: Simple
77
88library
9− hs-source-dirs: src
10− ghc-options: -Wall
9+ hs-source-dirs: src
10+ ghc-options: -Wall
11+
1112 if !impl(ghcjs)
12− exposed-modules: Control.Logger
13− Control.Logger.Katip
14− Control.Logger.Katip.Utils
15− Control.Logger.Orphans
16− exposed-modules: Control.Logger.Internal
17− build-depends: base
18− , aeson
19− , bytestring
20− , control-has
21− , control-has-katip
22− , deepseq
23− , exceptions
24− , fast-logger
25− , http-client
26− , lens
27− , monad-logger
28− , mtl
29− , shakespeare
30− , text
31− , time
32− , unordered-containers
13+ exposed-modules:
14+ Control.Logger
15+ Control.Logger.Katip
16+ Control.Logger.Katip.Utils
17+ Control.Logger.Orphans
18+
19+ exposed-modules: Control.Logger.Internal
20+ build-depends:
21+ , aeson
22+ , base >=4.11
23+ , bytestring
24+ , control-has
25+ , control-has-katip
26+ , deepseq
27+ , exceptions
28+ , fast-logger >=2.4.11
29+ , http-client
30+ , lens
31+ , monad-logger
32+ , mtl
33+ , shakespeare
34+ , text
35+ , time
36+ , unordered-containers
37+
3338 if !impl(ghcjs)
34− build-depends: katip >= 0.8.8.0
35− , optparse-applicative
36− default-language: Haskell2010
37− default-extensions: RankNTypes
38− DataKinds
39− FlexibleContexts
40− FlexibleInstances
41− LambdaCase
42− OverloadedStrings
43− ScopedTypeVariables
44− DeriveGeneric
45− ConstraintKinds
46− RecordWildCards
47− TypeSynonymInstances
39+ build-depends:
40+ , katip >=0.8.8.0
41+ , optparse-applicative
42+
43+ default-language: Haskell2010
44+ default-extensions:
45+ ConstraintKinds
46+ DataKinds
47+ DeriveGeneric
48+ FlexibleContexts
49+ FlexibleInstances
50+ LambdaCase
51+ OverloadedStrings
52+ RankNTypes
53+ RecordWildCards
54+ ScopedTypeVariables
55+ TypeSynonymInstances
src/Control/Logger.hs+2−5
@@ -44,7 +44,9 @@ import Control.Has
4444import Control.Lens hiding (censoring)
4545import Control.Logger.Internal
4646import Control.Logger.Orphans ()
47+import Control.Monad
4748import Control.Monad.Catch
49+import Control.Monad.IO.Class
4850import qualified Data.List as List
4951import Data.Monoid
5052import Data.Text (Text)
@@ -54,11 +56,6 @@ import GHC.Stack
5456import Katip (ToObject (..))
5557import System.Log.FastLogger
5658import Text.Shakespeare.Text (st)
57−-- import Control.Monad.RWS (censor)
58−#if MIN_VERSION_mtl(2,3,0)
59−import Control.Monad
60−import Control.Monad.IO.Class
61−#endif
6259
6360logError
6461 :: (LoggingMonad r m)
src/Control/Logger/Internal.hs+17−5
@@ -16,14 +16,12 @@ module Control.Logger.Internal
1616
1717import Control.Has
1818import Control.Lens
19+import Control.Monad.IO.Class
1920import Control.DeepSeq
20−import Data.Aeson (ToJSON, FromJSON, Object)
21+import Data.Aeson (ToJSON, FromJSON, Object, Value(..))
2122import Data.Text (Text)
2223import Data.Monoid
2324import GHC.Stack
24−#if MIN_VERSION_mtl(2,3,0)
25−import Control.Monad.IO.Class
26−#endif
2725
2826
2927data LogSeverity
@@ -79,4 +77,18 @@ logMsgWith logger s t =
7977 liftIO $ runLogger logger callStack s t
8078
8179runLogger :: Logger -> CallStack -> LogSeverity -> Text -> IO ()
82−runLogger (Logger ctx theScrubber logger) cs ls txt = logger ctx cs ls (appEndo theScrubber txt)
80+runLogger (Logger ctx theScrubber logger) cs ls txt
81+ = logger (scrubContext theScrubber ctx) cs ls (appEndo theScrubber txt)
82+
83+
84+scrubContext :: Endo Text -> Object -> Object
85+scrubContext theScrubber = fmap doScrub
86+ where
87+ doScrub :: Value -> Value
88+ doScrub = \case
89+ Object object -> Object (fmap doScrub object)
90+ Array array -> Array (fmap doScrub array)
91+ String string -> String (appEndo theScrubber string)
92+ n@Number{} -> n
93+ b@Bool{} -> b
94+ n@Null -> n
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