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: deprecate typed* APIs with implicit defaultConfig.

Browse Source
This commit is contained in:
Kei Hibino 2018-06-18 02:21:21 +09:00
parent 7972a1e4da
commit d957e2f11a
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,22 +18,22 @@ module Database.Relational.Type (
-- * Typed update statement -- * Typed update statement
KeyUpdate (..), unsafeTypedKeyUpdate, typedKeyUpdate, typedKeyUpdateTable, keyUpdate, KeyUpdate (..), unsafeTypedKeyUpdate, typedKeyUpdate, typedKeyUpdateTable, keyUpdate,
Update (..), unsafeTypedUpdate, typedUpdate', typedUpdate, update', update, updateNoPH, Update (..), unsafeTypedUpdate, typedUpdate', update', update, updateNoPH,
typedUpdateAllColumn, updateAllColumn', updateAllColumn, updateAllColumnNoPH, typedUpdateAllColumn, updateAllColumn', updateAllColumn, updateAllColumnNoPH,
updateSQL, updateSQL,
-- * Typed insert statement -- * Typed insert statement
Insert (..), untypeChunkInsert, chunkSizeOfInsert, Insert (..), untypeChunkInsert, chunkSizeOfInsert,
unsafeTypedInsert', unsafeTypedInsert, typedInsert', typedInsert, insert, unsafeTypedInsert', unsafeTypedInsert, typedInsert', insert,
typedInsertValue', typedInsertValue, insertValue', insertValue, insertValueNoPH, typedInsertValue', insertValue', insertValue, insertValueNoPH,
insertValueList', insertValueList, insertValueList', insertValueList,
InsertQuery (..), unsafeTypedInsertQuery, typedInsertQuery', typedInsertQuery, insertQuery, InsertQuery (..), unsafeTypedInsertQuery, typedInsertQuery', insertQuery,
insertQuerySQL, insertQuerySQL,
-- * Typed delete statement -- * Typed delete statement
Delete (..), unsafeTypedDelete, typedDelete', typedDelete, delete', delete, deleteNoPH, Delete (..), unsafeTypedDelete, typedDelete', delete', delete, deleteNoPH,
deleteSQL, deleteSQL,
@ -41,6 +41,10 @@ module Database.Relational.Type (
UntypeableNoFetch (..), UntypeableNoFetch (..),
-- * Deprecated -- * Deprecated
typedUpdate,
typedInsert, typedInsertValue, typedInsertQuery,
typedDelete,
derivedKeyUpdate, derivedKeyUpdate,
derivedUpdate', derivedUpdate, derivedUpdate', derivedUpdate,
derivedUpdateAllColumn', derivedUpdateAllColumn, derivedUpdateAllColumn', derivedUpdateAllColumn,
@ -156,6 +160,7 @@ updateSQL config tbl ut = showStringSQL $ updatePrefixSQL tbl <> sqlFromUpdateTa
typedUpdate' :: Config -> Table r -> UpdateTarget p r -> Update p typedUpdate' :: Config -> Table r -> UpdateTarget p r -> Update p
typedUpdate' config tbl ut = unsafeTypedUpdate $ updateSQL config tbl ut typedUpdate' config tbl ut = unsafeTypedUpdate $ updateSQL config tbl ut
{-# DEPRECATED typedUpdate "use `typedUpdate' defaultConfig` instead of this." #-}
-- | Make typed 'Update' using 'defaultConfig', 'Table' and 'UpdateTarget'. -- | Make typed 'Update' using 'defaultConfig', 'Table' and 'UpdateTarget'.
typedUpdate :: Table r -> UpdateTarget p r -> Update p typedUpdate :: Table r -> UpdateTarget p r -> Update p
typedUpdate = typedUpdate' defaultConfig typedUpdate = typedUpdate' defaultConfig
@ -278,6 +283,7 @@ typedInsert' :: PersistableWidth r => Config -> Table r -> Pi r r' -> Insert r'
typedInsert' config tbl = typedInsert' config tbl =
typedInsertValue' config tbl . insertTarget' . piRegister typedInsertValue' config tbl . insertTarget' . piRegister
{-# DEPRECATED typedInsert "use `typedInsert' defaultConfig` instead of this." #-}
-- | Make typed 'Insert' from 'Table' and columns selector 'Pi'. -- | Make typed 'Insert' from 'Table' and columns selector 'Pi'.
typedInsert :: PersistableWidth r => Table r -> Pi r r' -> Insert r' typedInsert :: PersistableWidth r => Table r -> Pi r r' -> Insert r'
typedInsert = typedInsert' defaultConfig typedInsert = typedInsert' defaultConfig
@ -300,6 +306,7 @@ typedInsertValue' config tbl it =
where where
(ci, n) = sqlChunkFromInsertTarget config tbl it (ci, n) = sqlChunkFromInsertTarget config tbl it
{-# DEPRECATED typedInsertValue "use `typedInsertValue' defaultConfig` instead of this." #-}
-- | Make typed 'Insert' from 'Table' and monadic builded 'InsertTarget' object. -- | Make typed 'Insert' from 'Table' and monadic builded 'InsertTarget' object.
typedInsertValue :: Table r -> InsertTarget p r -> Insert p typedInsertValue :: Table r -> InsertTarget p r -> Insert p
typedInsertValue = typedInsertValue' defaultConfig typedInsertValue = typedInsertValue' defaultConfig
@ -365,6 +372,7 @@ insertQuerySQL config tbl pi' rel = showStringSQL $ insertPrefixSQL pi' tbl <> s
typedInsertQuery' :: Config -> Table r -> Pi r r' -> Relation p r' -> InsertQuery p typedInsertQuery' :: Config -> Table r -> Pi r r' -> Relation p r' -> InsertQuery p
typedInsertQuery' config tbl pi' rel = unsafeTypedInsertQuery $ insertQuerySQL config tbl pi' rel typedInsertQuery' config tbl pi' rel = unsafeTypedInsertQuery $ insertQuerySQL config tbl pi' rel
{-# DEPRECATED typedInsertQuery "use `typedInsertQuery' defaultConfig` instead of this." #-}
-- | Make typed 'InsertQuery' from columns selector 'Table', 'Pi' and 'Relation'. -- | Make typed 'InsertQuery' from columns selector 'Table', 'Pi' and 'Relation'.
typedInsertQuery :: Table r -> Pi r r' -> Relation p r' -> InsertQuery p typedInsertQuery :: Table r -> Pi r r' -> Relation p r' -> InsertQuery p
typedInsertQuery = typedInsertQuery' defaultConfig typedInsertQuery = typedInsertQuery' defaultConfig
@ -398,6 +406,7 @@ deleteSQL config tbl r = showStringSQL $ deletePrefixSQL tbl <> sqlWhereFromRest
typedDelete' :: Config -> Table r -> Restriction p r -> Delete p typedDelete' :: Config -> Table r -> Restriction p r -> Delete p
typedDelete' config tbl r = unsafeTypedDelete $ deleteSQL config tbl r typedDelete' config tbl r = unsafeTypedDelete $ deleteSQL config tbl r
{-# DEPRECATED typedDelete "use `typedDelete' defaultConfig` instead of this." #-}
-- | Make typed 'Delete' from 'Table' and 'Restriction'. -- | Make typed 'Delete' from 'Table' and 'Restriction'.
typedDelete :: Table r -> Restriction p r -> Delete p typedDelete :: Table r -> Restriction p r -> Delete p
typedDelete = typedDelete' defaultConfig typedDelete = typedDelete' defaultConfig