Activate reseting of delinquent high pledges

diff --git a/money.sml b/money.sml
index d0668a4..1ce5774 100644 (file)
--- a/money.sml
+++ b/money.sml
@@ -292,7 +292,7 @@ fun delinquentPledgers () =
     end
 
 fun resetPledges ids =
-    raise Fail ($`UPDATE WebUser SET shares = 1 WHERE id IN (^(String.concatWith ", " (List.map C.intToSql ids)))`)
+    ignore (C.dml (getDb ()) ($`UPDATE WebUser SET shares = 1 WHERE id IN (^(String.concatWith ", " (List.map C.intToSql ids)))`))
 
 fun freezeworthyPledgers () =
     let