Database.Persist.Migration.Utils.Sql

Defines helper functions for writing SQL queries.

Documentation

commas :: Text -> [Text]

Split the given line by commas, ignoring commas within parentheses.

commas "a,b,c" == ["a", "b", "c"]
commas "a,b,c (d,e),z" == ["a", "b", "c (d,e)", "z"]
commas "a,b,c (d,e,(f,g)),z" == ["a", "b", "c (d,e,(f,g))", "z"]

uncommas :: [Text] -> Text

Join the given Text with commas separating each item.

uncommas' :: [Text] -> Text

Join the given Text with commas separating each item and quoting them.

quote :: Text -> Text

Quote the given Text.

data MigrateSql

A SQL query (with placeholders) and values to replace those placeholders.

Constructors

MigrateSql

Fields

• sqlText :: Text
• sqlVals :: [PersistValue]

Instances

Show MigrateSql

Defined in Database.Persist.Migration.Utils.Sql

Methods

showsPrec :: Int -> MigrateSql -> ShowS

show :: MigrateSql -> String

showList :: [MigrateSql] -> ShowS

executeSql :: MonadIO m => MigrateSql -> SqlPersistT m ()

Execute a SQL query.

pureSql :: Text -> MigrateSql

Create a MigrateSql from the given Text.

mapSql :: (Text -> Text) -> MigrateSql -> MigrateSql

Map the SQL text with the given function.

concatSql :: ([Text] -> Text) -> [MigrateSql] -> MigrateSql

Concatenate the given MigrateSql queries with the given combining function.