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

Fix values list for update statement.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-11 03:20:28 +09:00
parent c803dc97b8
commit 17cfd474b4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
DB-record/src/Database/Record/ToSql.hs
View File

@ -60,12 +60,14 @@ instance ToSql q () where
fromRecord :: ToSql q a => a -> [q]
fromRecord = runFromRecord recordToSql
-- | Expect update form like
-- "UPDATE <table> SET c0 = ?, c1 = ?, ..., cn = ? WHERE key = ? "
updateValuesByUnique' :: RecordToSql q ra
-> KeyConstraint Unique ra
-> ra
-> [q]
updateValuesByUnique' pr uk a = hd ++ tl where
(hd, _uk:tl) = splitAt (index uk) (runFromRecord pr a)
updateValuesByUnique' pr uk a = hd ++ tl ++ [key] where
(hd, key:tl) = splitAt (index uk) (runFromRecord pr a)
updateValuesByUnique :: ToSql q ra
=> KeyConstraint Unique ra