{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Orville.PostgreSQL.Expr.OffsetExpr
( OffsetExpr
, offsetExpr
)
where
import qualified Orville.PostgreSQL.Raw.RawSql as RawSql
import qualified Orville.PostgreSQL.Raw.SqlValue as SqlValue
newtype OffsetExpr
= OffsetExpr RawSql.RawSql
deriving
(
RawSql -> OffsetExpr
OffsetExpr -> RawSql
(OffsetExpr -> RawSql)
-> (RawSql -> OffsetExpr) -> SqlExpression OffsetExpr
forall a. (a -> RawSql) -> (RawSql -> a) -> SqlExpression a
$ctoRawSql :: OffsetExpr -> RawSql
toRawSql :: OffsetExpr -> RawSql
$cunsafeFromRawSql :: RawSql -> OffsetExpr
unsafeFromRawSql :: RawSql -> OffsetExpr
RawSql.SqlExpression
)
offsetExpr :: Int -> OffsetExpr
offsetExpr :: Int -> OffsetExpr
offsetExpr Int
offsetValue =
RawSql -> OffsetExpr
OffsetExpr (RawSql -> OffsetExpr) -> RawSql -> OffsetExpr
forall a b. (a -> b) -> a -> b
$
String -> RawSql
RawSql.fromString String
"OFFSET " RawSql -> RawSql -> RawSql
forall a. Semigroup a => a -> a -> a
<> SqlValue -> RawSql
RawSql.parameter (Int -> SqlValue
SqlValue.fromInt Int
offsetValue)