@@ -27,7 +27,6 @@ mkAggregations name aggregation = M.insert name aggregation emptyAggregations
2727
2828data Aggregation = TermsAgg TermsAggregation
2929 | CardinalityAgg CardinalityAggregation
30− | MaxAgg MaxAggregation
3130 | DateHistogramAgg DateHistogramAggregation
3231 | ValueCountAgg ValueCountAggregation
3332 | FilterAgg FilterAggregation
@@ -59,9 +58,6 @@ instance ToJSON Aggregation where
5958 ]
6059 ]
6160
62− toJSON (MaxAgg (MaxAggregation field)) =
63− object ["max" .= omitNulls [ "field" .= field ]]
64−
6561 toJSON (DateHistogramAgg
6662 (DateHistogramAggregation field interval format
6763 preZone postZone preOffset postOffset dateHistoAggs)) =
@@ -129,10 +125,6 @@ data CardinalityAggregation = CardinalityAggregation
129125 precisionThreshold :: Maybe Int
130126 } deriving (Eq, Show)
131127
132−data MaxAggregation = MaxAggregation
133− { maxField :: FieldName
134− } deriving (Eq, Show)
135−
136128data DateHistogramAggregation = DateHistogramAggregation
137129 { dateField :: FieldName
138130 , dateInterval :: Interval