fun isNegative (bal : balance) = #amount bal < 0.0
-fun depositAmount _ = 5.0 * 3.0
+fun depositAmount _ = 7.0 * 3.0
(*fun depositAmount bal =
let
val db = getDb ()
val monthlyCost = 900.0
val graceMonths = 1
-val baseDues = 5.0
+val baseDues = 7.0
fun delinquentPledgers () =
let
fun freezeworthyPledgers () =
let
- val baseDues = 5.0
-
fun makeRow [id, name, amount, j] = {id = C.intFromSql id, name = C.stringFromSql name,
balance = C.realFromSql amount, joinedThisMonth = C.boolFromSql j}
| makeRow row = Init.rowError ("Bad freezeworthyPledgers", row)
fun bootworthyPledgers () =
let
- val baseDues = 5.0
-
fun makeRow [id, name, amount, j] = {id = C.intFromSql id, name = C.stringFromSql name,
balance = C.realFromSql amount, joinedThisMonth = C.boolFromSql j}
| makeRow row = Init.rowError ("Bad bootworthyPledgers", row)
else
Real.fmt (StringCvt.FIX (SOME 2)) n
-val basePerMonth = 5.0
+val basePerMonth = 7.0
val deposit = basePerMonth * 3.0
fun main _ =
write "\nMinimum amount to pay to not see this message again for two months: US$";
write (printReal (headsUp - amount));
- write "\n\nThe deposit requirement was calculated as three months of dues at $5/mo..\n\n";
+ write "\n\nThe deposit requirement was calculated as three months of dues at $7/mo..\n\n";
write "To make a payment, visit:\n";
write " https://members.hcoop.net/\n";