fun mkBalanceRow [id, name, amount] =
{id = C.intFromSql id, name = C.stringFromSql name, amount = C.realFromSql amount}
- | mkBalanceRow row = raise Fail ("Bad balance row : " ^ makeSet id row)
+ | mkBalanceRow row = Init.rowError ("balance", row)
fun addBalance name =
let
val id = nextSeq (db, "BalanceSeq")
in
C.dml db ($`INSERT INTO Balance (id, name, amount)
- VALUES (^id, ^(C.stringToSql name), 0.0)`);
- C.intFromSql id
+ VALUES (^(C.intToSql id), ^(C.stringToSql name), 0.0)`);
+ id
end
fun lookupBalance id =
| _ => NONE
fun listBalanceUsers bal =
- C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined
+ C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app
FROM WebUser
WHERE bal = ^(C.intToSql bal)
ORDER BY name`)