git.iko.soy/rel8
on master help sign in
Fix min/max
912ec09Ollie Charles
src/Rel8/Expr/Aggregate.hs+2−2
compare with master
unifiedsplit
@@ -101,7 +101,7 @@ or = unsafeMakeAggregate toPrimExpr fromPrimExpr $
101max :: Sql DBMax a => Expr a -> Aggregate (Expr a)
101max :: Sql DBMax a => Expr a -> Aggregate (Expr a)
102max = unsafeMakeAggregate toPrimExpr fromPrimExpr $
102max = unsafeMakeAggregate toPrimExpr fromPrimExpr $
103 Just Aggregator
103 Just Aggregator
104− { operation = Opaleye.AggrSum
104+ { operation = Opaleye.AggrMax
105 , ordering = []
105 , ordering = []
106 , distinction = Opaleye.AggrAll
106 , distinction = Opaleye.AggrAll
107 }
107 }
@@ -111,7 +111,7 @@ max = unsafeMakeAggregate toPrimExpr fromPrimExpr $
111min :: Sql DBMin a => Expr a -> Aggregate (Expr a)
111min :: Sql DBMin a => Expr a -> Aggregate (Expr a)
112min = unsafeMakeAggregate toPrimExpr fromPrimExpr $
112min = unsafeMakeAggregate toPrimExpr fromPrimExpr $
113 Just Aggregator
113 Just Aggregator
114− { operation = Opaleye.AggrSum
114+ { operation = Opaleye.AggrMin
115 , ordering = []
115 , ordering = []
116 , distinction = Opaleye.AggrAll
116 , distinction = Opaleye.AggrAll
117 }
117 }