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