Subtract deposit amounts from displayed balances
[hcoop/portal.git] / balance.sig
index 2ce2b47..7d47b90 100644 (file)
@@ -1,6 +1,6 @@
 signature BALANCE =
 sig
-    type balance = {id :int, name : string, amount : real}
+    type balance = {id : int, name : string, amount : real}
 
     val addBalance : string -> int
     val lookupBalance : int -> balance
@@ -17,4 +17,6 @@ sig
 
     val sumOwnedBalances : unit -> real
     val isNegative : balance -> bool
+
+    val depositAmount : int -> real
 end