{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Orville.PostgreSQL.Expr.TableReferenceList
( TableReferenceList
, referencesTable
)
where
import Orville.PostgreSQL.Expr.Name (Qualified, TableName)
import qualified Orville.PostgreSQL.Raw.RawSql as RawSql
newtype TableReferenceList
= TableReferenceList RawSql.RawSql
deriving (RawSql -> TableReferenceList
TableReferenceList -> RawSql
(TableReferenceList -> RawSql)
-> (RawSql -> TableReferenceList)
-> SqlExpression TableReferenceList
forall a. (a -> RawSql) -> (RawSql -> a) -> SqlExpression a
$ctoRawSql :: TableReferenceList -> RawSql
toRawSql :: TableReferenceList -> RawSql
$cunsafeFromRawSql :: RawSql -> TableReferenceList
unsafeFromRawSql :: RawSql -> TableReferenceList
RawSql.SqlExpression)
referencesTable :: Qualified TableName -> TableReferenceList
referencesTable :: Qualified TableName -> TableReferenceList
referencesTable Qualified TableName
qualifiedTableName =
RawSql -> TableReferenceList
TableReferenceList (RawSql -> TableReferenceList) -> RawSql -> TableReferenceList
forall a b. (a -> b) -> a -> b
$
Qualified TableName -> RawSql
forall a. SqlExpression a => a -> RawSql
RawSql.toRawSql Qualified TableName
qualifiedTableName