From 1d18bf2a0fa909806a4423418230ab40f93c0a80 Mon Sep 17 00:00:00 2001
From: "Thomas R. Koll" <tomk32@tomk32.de>
Date: Tue, 19 Jan 2016 10:35:28 +0100
Subject: [PATCH] api: /accounts to return only the top accounts

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

diff --git a/hledger-api/hledger-api.hs b/hledger-api/hledger-api.hs
index 6aaa52920..21196ec1d 100644
--- a/hledger-api/hledger-api.hs
+++ b/hledger-api/hledger-api.hs
@@ -106,7 +106,7 @@ hledgerApiApp j = Servant.serve api combinedServer
         transactionsH = return $ jtxns j
         pricesH       = return $ jmarketprices j
         commoditiesH  = return $ (M.keys . jcommoditystyles) j
-        accountsH     = return $ laccounts $ ledgerFromJournal Hledger.Cli.Any j
+        accountsH     = return $ ledgerTopAccounts $ ledgerFromJournal Hledger.Query.Any j
         accounttransactionsH (a::AccountName) = do
           -- d <- liftIO getCurrentDay
           let