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