module Rel8.Expr.Sequence
( nextval
)
where
import Data.Int ( Int64 )
import Prelude
import Rel8.Expr ( Expr )
import Rel8.Expr.Function ( function )
import Rel8.Expr.Serialize ( litExpr )
import Rel8.Expr.Text ( quoteIdent )
import Data.Text ( pack )
nextval :: String -> Expr Int64
nextval :: String -> Expr Int64
nextval = forall args result.
Function args result =>
String -> args -> result
function String
"nextval" forall b c a. (b -> c) -> (a -> b) -> a -> c
. Expr Text -> Expr Text
quoteIdent forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Sql DBType a => a -> Expr a
litExpr forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Text
pack