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 =