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