Join script should rule out retired usernames

[bpt/portal.git] / money.sig

diff --git a/money.sig b/money.sig
index d54ba3f..4195a87 100644 (file)
--- a/money.sig
+++ b/money.sig
@@ -37,8 +37,8 @@ sig
     val delinquentPledgers : unit -> { id : int, name : string, shares : int, balance : real } list
     val resetPledges : int list -> unit
 
-    val freezeworthyPledgers : unit -> { id : int, name : string, balance : real } list
-    val bootworthyPledgers : unit -> { id : int, name : string, balance : real } list
+    val freezeworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
+    val bootworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
 
     val billDues : {descr : string, base : real, date : string} -> unit
 end