module Rel8.Expr.Sequence
( nextval
)
where
import Data.Int ( Int64 )
import Prelude
import qualified Opaleye.Internal.HaskellDB.PrimQuery as Opaleye
import Rel8.Expr ( Expr )
import Rel8.Expr.Opaleye (fromPrimExpr)
import Rel8.Schema.QualifiedName (QualifiedName, showQualifiedName)
nextval :: QualifiedName -> Expr Int64
nextval :: QualifiedName -> Expr Int64
nextval QualifiedName
name =
PrimExpr -> Expr Int64
forall a. PrimExpr -> Expr a
fromPrimExpr (PrimExpr -> Expr Int64) -> PrimExpr -> Expr Int64
forall a b. (a -> b) -> a -> b
$
Name -> [PrimExpr] -> PrimExpr
Opaleye.FunExpr Name
"nextval"
[ Literal -> PrimExpr
Opaleye.ConstExpr (Name -> Literal
Opaleye.StringLit (QualifiedName -> Name
showQualifiedName QualifiedName
name))
]