{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Orville.PostgreSQL.Expr.ReturningExpr
( ReturningExpr
, returningExpr
)
where
import Orville.PostgreSQL.Expr.Query (SelectList)
import qualified Orville.PostgreSQL.Raw.RawSql as RawSql
newtype ReturningExpr
= ReturningExpr RawSql.RawSql
deriving (RawSql -> ReturningExpr
ReturningExpr -> RawSql
(ReturningExpr -> RawSql)
-> (RawSql -> ReturningExpr) -> SqlExpression ReturningExpr
forall a. (a -> RawSql) -> (RawSql -> a) -> SqlExpression a
$ctoRawSql :: ReturningExpr -> RawSql
toRawSql :: ReturningExpr -> RawSql
$cunsafeFromRawSql :: RawSql -> ReturningExpr
unsafeFromRawSql :: RawSql -> ReturningExpr
RawSql.SqlExpression)
returningExpr :: SelectList -> ReturningExpr
returningExpr :: SelectList -> ReturningExpr
returningExpr SelectList
selectList =
RawSql -> ReturningExpr
ReturningExpr (RawSql -> ReturningExpr) -> RawSql -> ReturningExpr
forall a b. (a -> b) -> a -> b
$
String -> RawSql
RawSql.fromString String
"RETURNING "
RawSql -> RawSql -> RawSql
forall a. Semigroup a => a -> a -> a
<> SelectList -> RawSql
forall a. SqlExpression a => a -> RawSql
RawSql.toRawSql SelectList
selectList