git.iko.soy/typeable/katip
on master help sign in
Drop relatively recent microlens calls
ff50a85Michael Xavier
katip/src/Katip/Scribes/Handle.hs+1−3
compare with master
unifiedsplit
@@ -11,7 +11,6 @@ import Data.Text.Lazy.Builder
11import Data.Text.Lazy.IO as T
11import Data.Text.Lazy.IO as T
12import Data.Time
12import Data.Time
13import qualified Data.Time.Locale.Compat as LC
13import qualified Data.Time.Locale.Compat as LC
14−import Lens.Micro
15import System.IO
14import System.IO
16import System.IO.Unsafe (unsafePerformIO)
15import System.IO.Unsafe (unsafePerformIO)
17-------------------------------------------------------------------------------
16-------------------------------------------------------------------------------
@@ -26,8 +25,7 @@ brackets m = fromText "[" <> m <> fromText "]"
26
25
27-------------------------------------------------------------------------------
26-------------------------------------------------------------------------------
28getKeys :: LogItem s => Verbosity -> s -> [Builder]
27getKeys :: LogItem s => Verbosity -> s -> [Builder]
29−getKeys verb a = payloadObject verb a ^..
28+getKeys verb a = rendPair <$> HM.toList (payloadObject verb a)
30− to HM.toList . traverse . to rendPair
31 where
29 where
32 rendPair (k,v) = fromText k <> fromText ":" <> (renderPrim v)
30 rendPair (k,v) = fromText k <> fromText ":" <> (renderPrim v)
33
31