@@ -27,7 +27,6 @@ mkAggregations name aggregation = M.insert name aggregation emptyAggregations
28data Aggregation = TermsAgg TermsAggregation
28data Aggregation = TermsAgg TermsAggregation
29 | CardinalityAgg CardinalityAggregation
29 | CardinalityAgg CardinalityAggregation
30− | MaxAgg MaxAggregation
31 | DateHistogramAgg DateHistogramAggregation
30 | DateHistogramAgg DateHistogramAggregation
32 | ValueCountAgg ValueCountAggregation
31 | ValueCountAgg ValueCountAggregation
33 | FilterAgg FilterAggregation
32 | FilterAgg FilterAggregation
@@ -59,9 +58,6 @@ instance ToJSON Aggregation where
62− toJSON (MaxAgg (MaxAggregation field)) =
63− object ["max" .= omitNulls [ "field" .= field ]]
65 toJSON (DateHistogramAgg
61 toJSON (DateHistogramAgg
66 (DateHistogramAggregation field interval format
62 (DateHistogramAggregation field interval format
67 preZone postZone preOffset postOffset dateHistoAggs)) =
63 preZone postZone preOffset postOffset dateHistoAggs)) =
@@ -129,10 +125,6 @@ data CardinalityAggregation = CardinalityAggregation
129 precisionThreshold :: Maybe Int
125 precisionThreshold :: Maybe Int
130 } deriving (Eq, Show)
126 } deriving (Eq, Show)
132−data MaxAggregation = MaxAggregation
133− { maxField :: FieldName
134− } deriving (Eq, Show)
136data DateHistogramAggregation = DateHistogramAggregation
128data DateHistogramAggregation = DateHistogramAggregation
137 { dateField :: FieldName
129 { dateField :: FieldName
138 , dateInterval :: Interval
130 , dateInterval :: Interval