@@ -11,7 +11,6 @@ import Data.Text.Lazy.Builder
1111import Data.Text.Lazy.IO as T
1212import Data.Time
1313import qualified Data.Time.Locale.Compat as LC
14−import Lens.Micro
1514import System.IO
1615import System.IO.Unsafe (unsafePerformIO)
1716-------------------------------------------------------------------------------
@@ -26,8 +25,7 @@ brackets m = fromText "[" <> m <> fromText "]"
2625
2726-------------------------------------------------------------------------------
2827getKeys :: LogItem s => Verbosity -> s -> [Builder]
29−getKeys verb a = payloadObject verb a ^..
30− to HM.toList . traverse . to rendPair
28+getKeys verb a = rendPair <$> HM.toList (payloadObject verb a)
3129 where
3230 rendPair (k,v) = fromText k <> fromText ":" <> (renderPrim v)
3331