From 416012c3f285e4ed5ca262cbf3fbde8f23584676 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Wed, 27 Jul 2005 02:38:12 +0000
Subject: [PATCH] Fix bug where balances wouldn't update after a new hosting
 transaction

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

diff --git a/money.sml b/money.sml
index ea9255a..6372fd5 100644
--- 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
-- 
2.20.1