@@ -993,8 +993,7 @@ data Interval = Year
993993 | Hour
994994 | Minute
995995 | Second
996− | FractionalInterval { fraction :: Float
997− , interval :: TimeInterval } deriving (Eq, Show)
996+ | FractionalInterval Float TimeInterval deriving (Eq, Show)
998997
999998data Aggregation = TermsAgg TermsAggregation
1000999 | DateHistogramAgg DateHistogramAggregation deriving (Eq, Show)
@@ -1010,6 +1009,7 @@ data TermsAggregation = TermsAggregation { term :: Text
10101009 , termCollectMode :: Maybe CollectionMode
10111010 , termAggs :: Maybe Aggregations
10121011 } deriving (Eq, Show)
1012+
10131013data DateHistogramAggregation = DateHistogramAggregation { dateField :: FieldName
10141014 , dateInterval :: Interval
10151015 , dateFormat :: Maybe Text