Database.HamSql.Setup

Documentation

data SetupContext

Constructors

SetupContext

Fields

• setupContextSetup :: Setup

data SetupElement where

Constructors

SetupElement :: (ToSqlStmts a, Show b) => {..} -> SetupElement

Fields

• setupElement :: a
• setupElementSource :: Maybe b

Instances

ToSqlStmts SetupElement

Methods

toSqlStmts :: SetupContext -> SetupElement -> [Maybe SqlStmt]

class Typeable a => ToSqlStmts a where

Minimal complete definition

toSqlStmts

Methods

toSqlStmts :: SetupContext -> a -> [Maybe SqlStmt]

Instances

ToSqlStmts SetupElement

Methods

toSqlStmts :: SetupContext -> SetupElement -> [Maybe SqlStmt]

data Setup

Setup

Constructors

Setup

Fields

• setupSchemas :: [SqlName]
• setupSchemaDirs :: Maybe [FilePath]
• setupRolePrefix :: Maybe Text
• setupPreCode :: Maybe Text
• setupPostCode :: Maybe Text
• setupSchemaData :: Maybe [Schema]

Instances

Data Setup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Setup -> c Setup

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Setup

toConstr :: Setup -> Constr

dataTypeOf :: Setup -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c Setup)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Setup)

gmapT :: (forall b. Data b => b -> b) -> Setup -> Setup

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Setup -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Setup -> r

gmapQ :: (forall d. Data d => d -> u) -> Setup -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> Setup -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Setup -> m Setup

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Setup -> m Setup

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Setup -> m Setup

Show Setup

Methods

showsPrec :: Int -> Setup -> ShowS

show :: Setup -> String

showList :: [Setup] -> ShowS

Generic Setup

Associated Types

type Rep Setup :: * -> *

Methods

from :: Setup -> Rep Setup x

to :: Rep Setup x -> Setup

FromJSON Setup

Methods

parseJSON :: Value -> Parser Setup

parseJSONList :: Value -> Parser [Setup]

ToJSON Setup

Methods

toJSON :: Setup -> Value

toEncoding :: Setup -> Encoding

toJSONList :: [Setup] -> Value

toEncodingList :: [Setup] -> Encoding

type Rep Setup

type Rep Setup = D1 (MetaData "Setup" "Database.HamSql.Setup" "hamsql-0.8.0.0-3odSe2l79FgLCGfN2lHmnu" False) (C1 (MetaCons "Setup" PrefixI True) ((:*:) ((:*:) (S1 (MetaSel (Just Symbol "setupSchemas") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 [SqlName])) ((:*:) (S1 (MetaSel (Just Symbol "setupSchemaDirs") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe [FilePath]))) (S1 (MetaSel (Just Symbol "setupRolePrefix") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Text))))) ((:*:) (S1 (MetaSel (Just Symbol "setupPreCode") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Text))) ((:*:) (S1 (MetaSel (Just Symbol "setupPostCode") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe Text))) (S1 (MetaSel (Just Symbol "setupSchemaData") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 (Maybe [Schema])))))))

setupRolePrefix' :: Setup -> Text

data WithSchema a

Template handling and applyTemplate

Constructors

WithSchema Schema a

Instances

Show a => Show (WithSchema a)

Methods

showsPrec :: Int -> WithSchema a -> ShowS

show :: WithSchema a -> String

showList :: [WithSchema a] -> ShowS

WithName (WithSchema FunctionTpl)

Methods

name :: WithSchema FunctionTpl -> Text

WithName (WithSchema TableTpl)

Methods

name :: WithSchema TableTpl -> Text

class WithName a where

Minimal complete definition

name

Methods

name :: a -> Text

Instances

WithName (WithSchema FunctionTpl)

Methods

name :: WithSchema FunctionTpl -> Text

WithName (WithSchema TableTpl)

Methods

name :: WithSchema TableTpl -> Text

withoutSchema :: WithSchema a -> a

selectTemplates :: (ToSqlCode a, WithName (WithSchema t)) => Maybe [a] -> [WithSchema t] -> [t]

selectTemplate :: (ToSqlCode a1, WithName (WithSchema a)) => a1 -> [WithSchema a] -> a

setupAllSchemas :: Setup -> [Schema]

setupAllFunctionTemplates :: Setup -> [WithSchema FunctionTpl]

setupAllTableTemplates :: Setup -> [WithSchema TableTpl]

applyTpl :: Setup -> Setup