@@ -23,6 +23,11 @@ import Rel8.Table.Eq ( EqTable )
2323import Rel8.Table.Opaleye ( distinctspec, unpackspec )
2424
2525
26+-- | Select all distinct rows from a query, removing duplicates. @distinct q@
27+-- is equivalent to the SQL statement @SELECT DISTINCT q@.
28+--
29+-- >>> select c $ distinct $ values [ lit True, lit True, lit False ]
30+-- [False,True]
2631distinct :: EqTable a => Query a -> Query a
2732distinct = mapOpaleye (Opaleye.distinctExplicit distinctspec)
2833