@@ -94,10 +94,9 @@ registerElastic gitRev verbosity ElasticServer{..} permitF env =
9494 (Just u, Just p) -> applyBasicAuth u p
9595 _ -> id
9696
97−-- | Doubles the value of @msg@ key into the @msg-keyword@ and adds
98−-- the @rev-hash@ value to each record. The @msg-keyword@ is needed to
99−-- group errors by message. The @rev-hash@ is needed for many purposes
100−-- and for grouping as well.
97+-- | Adds the @rev-hash@ value to each record.
98+-- Early we copied `msg` to `msg-keyword` here but drop it
99+-- because purpose of this duplication is not clear.
101100ourFormatter
102101 :: Text
103102 -- ^ git revision string
@@ -107,13 +106,11 @@ ourFormatter gitRev verb = ItemFunc $ \item -> go $ ourItemJson verb item
107106 where
108107 go :: Value -> Value
109108 go = \case
110− Object h -> Object $ setRev $ dupMsg h
109+ Object h -> Object $ setRev h
111110 x -> x -- drop exception here?
112111 where
113112 setRev :: HM.HashMap Text Value -> HM.HashMap Text Value
114113 setRev = HM.insert "rev-hash" (toJSON gitRev)
115− dupMsg :: HM.HashMap Text Value -> HM.HashMap Text Value
116− dupMsg m = HM.alter (const $ HM.lookup "msg" m) "msg-keyword" m
117114
118115ourMapping :: K.MappingName ESV5 -> Value
119116ourMapping mn = object