@@ -993,8 +993,7 @@ data Interval = Year
995 | Second
995 | Second
996− | FractionalInterval { fraction :: Float
997− , interval :: TimeInterval } deriving (Eq, Show)
996+ | FractionalInterval Float TimeInterval deriving (Eq, Show)
999data Aggregation = TermsAgg TermsAggregation
998data Aggregation = TermsAgg TermsAggregation
1000 | DateHistogramAgg DateHistogramAggregation deriving (Eq, Show)
999 | DateHistogramAgg DateHistogramAggregation deriving (Eq, Show)
@@ -1010,6 +1009,7 @@ data TermsAggregation = TermsAggregation { term :: Text
1010 , termCollectMode :: Maybe CollectionMode
1009 , termCollectMode :: Maybe CollectionMode
1011 , termAggs :: Maybe Aggregations
1010 , termAggs :: Maybe Aggregations
1012 } deriving (Eq, Show)
1011 } deriving (Eq, Show)
1013data DateHistogramAggregation = DateHistogramAggregation { dateField :: FieldName
1013data DateHistogramAggregation = DateHistogramAggregation { dateField :: FieldName
1014 , dateInterval :: Interval
1014 , dateInterval :: Interval
1015 , dateFormat :: Maybe Text
1015 , dateFormat :: Maybe Text