yggdrasil-schema-1.0.0.6
Safe HaskellNone
LanguageGHC2021

Yggdrasil

Documentation

data YggdrasilEngine Source #

Constructors

SQLite 
PostgreSQL 
MySQL 

Instances

Instances details
Generic YggdrasilEngine Source # 
Instance details

Defined in Yggdrasil

Associated Types

type Rep YggdrasilEngine 
Instance details

Defined in Yggdrasil

type Rep YggdrasilEngine = D1 ('MetaData "YggdrasilEngine" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "SQLite" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "PostgreSQL" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MySQL" 'PrefixI 'False) (U1 :: Type -> Type)))

Methods

from :: YggdrasilEngine -> Rep YggdrasilEngine x #

to :: Rep YggdrasilEngine x -> YggdrasilEngine #

Show YggdrasilEngine Source # 
Instance details

Defined in Yggdrasil

Methods

showsPrec :: Int -> YggdrasilEngine -> ShowS #

show :: YggdrasilEngine -> String #

showList :: [YggdrasilEngine] -> ShowS #

Eq YggdrasilEngine Source # 
Instance details

Defined in Yggdrasil

Methods

(==) :: YggdrasilEngine -> YggdrasilEngine -> Bool #

(/=) :: YggdrasilEngine -> YggdrasilEngine -> Bool #

type Rep YggdrasilEngine Source # 
Instance details

Defined in Yggdrasil

type Rep YggdrasilEngine = D1 ('MetaData "YggdrasilEngine" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "SQLite" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "PostgreSQL" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "MySQL" 'PrefixI 'False) (U1 :: Type -> Type)))

data Yggdrasil Source #

Constructors

Yggdrasil 

Fields

Instances

Instances details
Generic Yggdrasil Source # 
Instance details

Defined in Yggdrasil

Associated Types

type Rep Yggdrasil 
Instance details

Defined in Yggdrasil

type Rep Yggdrasil = D1 ('MetaData "Yggdrasil" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "Yggdrasil" 'PrefixI 'True) ((S1 ('MetaSel ('Just "databaseFilePath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "migrationsDirectoryPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "runMigrations") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "engine") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 YggdrasilEngine))))

Methods

from :: Yggdrasil -> Rep Yggdrasil x #

to :: Rep Yggdrasil x -> Yggdrasil #

Show Yggdrasil Source # 
Instance details

Defined in Yggdrasil

Methods

showsPrec :: Int -> Yggdrasil -> ShowS #

show :: Yggdrasil -> String #

showList :: [Yggdrasil] -> ShowS #

Eq Yggdrasil Source # 
Instance details

Defined in Yggdrasil

Methods

(==) :: Yggdrasil -> Yggdrasil -> Bool #

(/=) :: Yggdrasil -> Yggdrasil -> Bool #

(k ~ A_Lens, a ~ Text, b ~ Text) => LabelOptic "databaseFilePath" k Yggdrasil Yggdrasil a b Source # 
Instance details

Defined in Yggdrasil

Methods

labelOptic :: Optic k NoIx Yggdrasil Yggdrasil a b #

(k ~ A_Lens, a ~ YggdrasilEngine, b ~ YggdrasilEngine) => LabelOptic "engine" k Yggdrasil Yggdrasil a b Source # 
Instance details

Defined in Yggdrasil

Methods

labelOptic :: Optic k NoIx Yggdrasil Yggdrasil a b #

(k ~ A_Lens, a ~ Text, b ~ Text) => LabelOptic "migrationsDirectoryPath" k Yggdrasil Yggdrasil a b Source # 
Instance details

Defined in Yggdrasil

Methods

labelOptic :: Optic k NoIx Yggdrasil Yggdrasil a b #

(k ~ A_Lens, a ~ Bool, b ~ Bool) => LabelOptic "runMigrations" k Yggdrasil Yggdrasil a b Source # 
Instance details

Defined in Yggdrasil

Methods

labelOptic :: Optic k NoIx Yggdrasil Yggdrasil a b #

type Rep Yggdrasil Source # 
Instance details

Defined in Yggdrasil

type Rep Yggdrasil = D1 ('MetaData "Yggdrasil" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "Yggdrasil" 'PrefixI 'True) ((S1 ('MetaSel ('Just "databaseFilePath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "migrationsDirectoryPath") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "runMigrations") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "engine") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 YggdrasilEngine))))

data RanMigration Source #

Constructors

RanMigration Text Int Text UTCTime 

Instances

Instances details
Generic RanMigration Source # 
Instance details

Defined in Yggdrasil

Associated Types

type Rep RanMigration 
Instance details

Defined in Yggdrasil

type Rep RanMigration = D1 ('MetaData "RanMigration" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "RanMigration" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime))))

Methods

from :: RanMigration -> Rep RanMigration x #

to :: Rep RanMigration x -> RanMigration #

Show RanMigration Source # 
Instance details

Defined in Yggdrasil

Methods

showsPrec :: Int -> RanMigration -> ShowS #

show :: RanMigration -> String #

showList :: [RanMigration] -> ShowS #

Eq RanMigration Source # 
Instance details

Defined in Yggdrasil

Methods

(==) :: RanMigration -> RanMigration -> Bool #

(/=) :: RanMigration -> RanMigration -> Bool #

FromRow RanMigration Source # 
Instance details

Defined in Yggdrasil

Methods

fromRow :: RowParser RanMigration #

type Rep RanMigration Source # 
Instance details

Defined in Yggdrasil

type Rep RanMigration = D1 ('MetaData "RanMigration" "Yggdrasil" "yggdrasil-schema-1.0.0.6-DRoUoHUc7Xs928lHLTqQwQ" 'False) (C1 ('MetaCons "RanMigration" 'PrefixI 'False) ((S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)) :*: (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 UTCTime))))

defaultYggdrasil :: Yggdrasil Source #

runYggdrasil :: MonadIO m => Yggdrasil -> m () Source #

getSortedMigrationFiles :: MonadIO m => Yggdrasil -> m [(Int, Text)] Source #

toIntOrder :: (Text, Text) -> (Maybe Int, Text) Source #

explodeMigrationPath :: Text -> Maybe (Text, Text) Source #

liftTupleMaybeFromFst :: (Maybe a, b) -> Maybe (a, b) Source #

parseTextToSqlStatements :: Text -> [Text] Source #

runMigration :: MonadIO m => Yggdrasil -> (Int, Text) -> m () Source #

getRanMigrations :: MonadIO m => Yggdrasil -> m [(Int, Text)] Source #