@@ -22,6 +22,7 @@ import Data.Scientific ( Scientific )
22import Data.Time.Clock ( DiffTime, NominalDiffTime )
22import Data.Time.Clock ( DiffTime, NominalDiffTime )
25+-- | The class of database types that support the @sum()@ aggregation function.
25type DBSum :: Type -> Constraint
26type DBSum :: Type -> Constraint
26class DBType a => DBSum a
27class DBType a => DBSum a
27instance DBSum Int16
28instance DBSum Int16