| definition: |
updateEntryCombined :: CombinedDescription a -> a -> DBAction ()
updateEntryCombined (CD desc _ f2 _) ent = mapM_ update (zip desc (f2 ent))
where
update :: ((Table, Int, [SQLType]), [SQLValue]) -> DBAction ()
update ((table, _, _), values) = do
let SQLInt key = (\(x:_) -> x) values
const = col (Column "\"Key\"" ("\"" ++ table ++ "\".\"Key\""))
.=. int key
columns <- getColumnNames table
let ((col1,val1):colval) = zip columns values
execute ("update '" ++ table ++ "' set " ++
(foldl (\a (c, v) -> a ++ ", " ++
c ++ " = " ++ (valueToString v))
(col1 ++ " = " ++ (valueToString val1))
colval) ++
" " ++ trCriteria (Criteria const Nothing) ++ ";") []
|
| demand: |
argument 1 |
| deterministic: |
deterministic operation |
| documentation: |
--- Same as updateEntry but for combined Data |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{({CD},_) |-> _}
|
| name: |
updateEntryCombined |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Database.CDBI.Description.CombinedDescription a -> a -> Database.CDBI.Connection.DBAction () |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |