module Database.Esqueleto.PostgreSQL
( arrayAgg
, stringAgg
, chr
) where
import Data.String (IsString)
import Database.Esqueleto.Internal.Language
import Database.Esqueleto.Internal.Sql
arrayAgg :: SqlExpr (Value a) -> SqlExpr (Value [a])
arrayAgg = unsafeSqlFunction "array_agg"
stringAgg
:: IsString s
=> SqlExpr (Value s)
-> SqlExpr (Value s)
-> SqlExpr (Value s)
stringAgg expr delim = unsafeSqlFunction "string_agg" (expr, delim)
chr :: IsString s
=> SqlExpr (Value Int) -> SqlExpr (Value s)
chr = unsafeSqlFunction "chr"