From 8424caddc61f66f4a684ebbdcd96e469fc7b2a78 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 1 Jul 2011 00:48:30 +0000
Subject: [PATCH] web: don't merge different accounts with similar leaf name in
 postings summary

---
 hledger/Hledger/Cli/Register.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 19cb05ee9..159855374 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -268,7 +268,7 @@ summarisePostings ps =
     where
       (tos,froms) = partition (fromMaybe False . isNegativeMixedAmount . pamount) ps
 
-simplifyPostingAccounts = nub . map (accountLeafName . paccount)
+simplifyPostingAccounts = map accountLeafName . nub . map paccount
 commafy = intercalate ", "
 
 filterTransactionPostings :: Matcher -> Transaction -> Transaction