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