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