Switch aggrOrder to use OrderExpr' a instead of OrderExpr

This means that expressions contained in `ORDER BY` clauses of aggregation functions are now also renamed by `extractAggregateFields`.
circuithub · Oct 5, 2023 · 11e3693 · 11e3693
1 parent 83e0577
commit 11e3693
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Opaleye/Internal/HaskellDB/PrimQuery.hs b/src/Opaleye/Internal/HaskellDB/PrimQuery.hs
@@ -99,7 +99,7 @@ type Aggr = Aggr' PrimExpr
 data Aggr' a = Aggr
   { aggrOp :: !AggrOp
   , aggrExprs :: ![a]
-  , aggrOrder :: ![OrderExpr]
+  , aggrOrder :: ![OrderExpr' a]
   , aggrDistinct :: !AggrDistinct
   , aggrFilter :: !(Maybe PrimExpr)
   }