Fix bug where balances wouldn't update after a new hosting transaction

diff --git a/money.sml b/money.sml
index ea9255a..6372fd5 100644 (file)
--- a/money.sml
+++ b/money.sml
@@ -228,7 +228,7 @@ fun addHostingCharges {trn, cutoff, cost, usage} =
            end
     in
        if SM.numItems (foldl doUser umap payers) = 0 then
-           ()
+           applyCharges trn
        else
            raise Fail "Usage description contains an unknown username"
     end