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