diff --git a/src/Rel8/Query/List.hs b/src/Rel8/Query/List.hs index 0ba686bc..859ffab4 100644 --- a/src/Rel8/Query/List.hs +++ b/src/Rel8/Query/List.hs @@ -66,7 +66,7 @@ manyExpr :: Sql DBType a => Query (Expr a) -> Query (Expr [a]) manyExpr = aggregate listAggExpr --- | A version of 'many' specialised to single expressions. +-- | A version of 'some' specialised to single expressions. someExpr :: Sql DBType a => Query (Expr a) -> Query (Expr (NonEmpty a)) someExpr = aggregate1 nonEmptyAggExpr