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