khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +03:00
Code Issues Projects Releases Wiki Activity

relational-query: not reference deprecated definitions internally.

Browse Source
This commit is contained in:
Kei Hibino 2018-06-17 17:28:36 +09:00
parent e7045d5ffa
commit 3079a3549a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
relational-query/src/Database/Relational/Type.hs
View File

@ -175,7 +175,7 @@ derivedUpdate' = update'
-- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement' -- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement'
update :: TableDerivable r => AssignStatement r (PlaceHolders p) -> Update p update :: TableDerivable r => AssignStatement r (PlaceHolders p) -> Update p
update = derivedUpdate' defaultConfig update = update' defaultConfig
-- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement' with no(unit) placeholder. -- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement' with no(unit) placeholder.
updateNoPH :: TableDerivable r => AssignStatement r () -> Update () updateNoPH :: TableDerivable r => AssignStatement r () -> Update ()
@ -226,7 +226,7 @@ derivedUpdateAllColumn' = updateAllColumn'
updateAllColumn :: (PersistableWidth r, TableDerivable r) updateAllColumn :: (PersistableWidth r, TableDerivable r)
=> RestrictedStatement r (PlaceHolders p) => RestrictedStatement r (PlaceHolders p)
-> Update (r, p) -> Update (r, p)
updateAllColumn = derivedUpdateAllColumn' defaultConfig updateAllColumn = updateAllColumn' defaultConfig
-- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement' -- | Make typed 'Update' from 'defaultConfig', derived table and 'AssignStatement'
-- without placeholder other than target table columns. -- without placeholder other than target table columns.
@ -318,7 +318,7 @@ derivedInsertValue' = insertValue'
-- | Make typed 'Insert' from 'defaultConfig', derived table and monadic builded 'Register' object. -- | Make typed 'Insert' from 'defaultConfig', derived table and monadic builded 'Register' object.
insertValue :: TableDerivable r => Register r (PlaceHolders p) -> Insert p insertValue :: TableDerivable r => Register r (PlaceHolders p) -> Insert p
insertValue = derivedInsertValue' defaultConfig insertValue = insertValue' defaultConfig
-- | Make typed 'Insert' from 'defaultConfig', derived table and monadic builded 'Register' object with no(unit) placeholder. -- | Make typed 'Insert' from 'defaultConfig', derived table and monadic builded 'Register' object with no(unit) placeholder.
insertValueNoPH :: TableDerivable r => Register r () -> Insert () insertValueNoPH :: TableDerivable r => Register r () -> Insert ()
@ -417,7 +417,7 @@ derivedDelete' = delete'
-- | Make typed 'Delete' from 'defaultConfig', derived table and 'RestrictContext' -- | Make typed 'Delete' from 'defaultConfig', derived table and 'RestrictContext'
delete :: TableDerivable r => RestrictedStatement r (PlaceHolders p) -> Delete p delete :: TableDerivable r => RestrictedStatement r (PlaceHolders p) -> Delete p
delete = derivedDelete' defaultConfig delete = delete' defaultConfig
-- | Make typed 'Delete' from 'defaultConfig', derived table and 'RestrictContext' with no(unit) placeholder. -- | Make typed 'Delete' from 'defaultConfig', derived table and 'RestrictContext' with no(unit) placeholder.
deleteNoPH :: TableDerivable r => RestrictedStatement r () -> Delete () deleteNoPH :: TableDerivable r => RestrictedStatement r () -> Delete ()