src/Rel8/Expr/Sequence.hs · rel8

on 2ba99ea help sign in

rel8/src/Rel8/Expr/Sequence.hs

21 lines 399 B history raw

1module Rel8.Expr.Sequence

2 ( nextval

3 )

4where

6-- base

7import Data.Int ( Int64 )

8import Prelude

10-- rel8

11import Rel8.Expr ( Expr )

12import Rel8.Expr.Function ( function )

13import Rel8.Expr.Serialize ( litExpr )

15-- text

16import Data.Text ( pack )

19-- | See https://www.postgresql.org/docs/current/functions-sequence.html

20nextval :: String -> Expr Int64

21nextval = function "nextval" . litExpr . pack