slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

api: /accounts to return only the top accounts

Browse Source
This commit is contained in:
Thomas R. Koll 2016-01-19 10:35:28 +01:00
parent ee2c06c320
commit 1d18bf2a0f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-api/hledger-api.hs
View File

@ -106,7 +106,7 @@ hledgerApiApp j = Servant.serve api combinedServer
transactionsH = return $ jtxns j transactionsH = return $ jtxns j
pricesH = return $ jmarketprices j pricesH = return $ jmarketprices j
commoditiesH = return $ (M.keys . jcommoditystyles) 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 accounttransactionsH (a::AccountName) = do
-- d <- liftIO getCurrentDay -- d <- liftIO getCurrentDay
let let