From 49e613aeb7d8d989e43aa13bfa66c2b6cb0ac11f Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 22 May 2008 00:13:54 +0000
Subject: [PATCH] Activate reseting of delinquent high pledges

---
 money.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/money.sml b/money.sml
index d0668a4..1ce5774 100644
--- 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
-- 
2.20.1