Most of lowering of pledges for delinquents

[hcoop/portal.git] / money.sig

diff --git a/money.sig b/money.sig
index 235c3d8..087666d 100644 (file)
--- a/money.sig
+++ b/money.sig
@@ -33,4 +33,7 @@ sig
     val equalizeBalances : unit -> unit
 
     val costBase : real -> real
+
+    val delinquentPledgers : unit -> { id : int, name : string, shares : int, balance : real } list
+    val resetPledges : int list -> unit
 end