{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Orville.PostgreSQL.Expr.Internal.Name.TableName
( TableName
, tableName
)
where
import Orville.PostgreSQL.Expr.Internal.Name.Identifier (Identifier, IdentifierExpression, identifier)
import qualified Orville.PostgreSQL.Raw.RawSql as RawSql
newtype TableName
= TableName Identifier
deriving
(
RawSql -> TableName
TableName -> RawSql
(TableName -> RawSql)
-> (RawSql -> TableName) -> SqlExpression TableName
forall a. (a -> RawSql) -> (RawSql -> a) -> SqlExpression a
$ctoRawSql :: TableName -> RawSql
toRawSql :: TableName -> RawSql
$cunsafeFromRawSql :: RawSql -> TableName
unsafeFromRawSql :: RawSql -> TableName
RawSql.SqlExpression
,
Identifier -> TableName
TableName -> Identifier
(TableName -> Identifier)
-> (Identifier -> TableName) -> IdentifierExpression TableName
forall name.
(name -> Identifier)
-> (Identifier -> name) -> IdentifierExpression name
$ctoIdentifier :: TableName -> Identifier
toIdentifier :: TableName -> Identifier
$cfromIdentifier :: Identifier -> TableName
fromIdentifier :: Identifier -> TableName
IdentifierExpression
)
tableName :: String -> TableName
tableName :: String -> TableName
tableName =
Identifier -> TableName
TableName (Identifier -> TableName)
-> (String -> Identifier) -> String -> TableName
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Identifier
identifier