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