f3668ee · typeable/katip

git.iko.soy/typeable/katip

loosen deps and disambiguate some functions

commitf3668eedbceb3237487f1c84fa66c3bd65be4161 authorMichael Xavier <michael@michaelxavier.net> dateTue 22 Mar 2016, 12:55 (11 years ago) parent793baed

2 files changed+4−3

compare with master

unifiedsplit

katip/katip.cabal+2−2 katip/src/Katip/Scribes/Handle.hs+2−1

katip/katip.cabal+2−2

@@ -63,12 +63,12 @@ library

6363 , text >= 0.11 && <1.3

6464 , time >= 1 && < 1.6

6565 , time-locale-compat >= 0.1.0.1 && < 0.2

66− , transformers >= 0.3 && < 0.5

66+ , transformers >= 0.3 && < 0.6

6767 , transformers-compat

6868 , unix >= 2.5 && < 2.8

6969 , unordered-containers >= 0.2 && < 0.3

7070 , monad-control >= 1.0 && < 1.1

71− , mtl >= 2.2 && < 2.3

71+ , mtl >= 2.0 && < 2.3

7272 , transformers-base >= 0.4.1 && < 0.5

7373 , resourcet >= 1.1 && < 1.2

7474 , microlens >= 0.2.0.0 && < 0.5

katip/src/Katip/Scribes/Handle.hs+2−1

@@ -3,6 +3,7 @@

33module Katip.Scribes.Handle where

55-------------------------------------------------------------------------------

6+import Control.Applicative as A

67import Control.Monad

78import Data.Aeson

89import qualified Data.HashMap.Strict as HM

@@ -25,7 +26,7 @@ brackets m = fromText "[" <> m <> fromText "]"

2526

2627-------------------------------------------------------------------------------

2728getKeys :: LogItem s => Verbosity -> s -> [Builder]

28−getKeys verb a = rendPair <$> HM.toList (payloadObject verb a)

29+getKeys verb a = rendPair A.<$> HM.toList (payloadObject verb a)

2930 where

3031 rendPair (k,v) = fromText k <> fromText ":" <> (renderPrim v)

3132