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