Skip to content
Permalink
Browse files

web: /accounts: return all accounts, not just top-level ones (#985)

Accounts are returned as a flat list, in tree order, with asubs fields
empty.
  • Loading branch information...
simonmichael committed Mar 9, 2019
1 parent 92fb24b commit 7c14e10858b1edc4d787ba22f6135b1f9dc12125
Showing with 1 addition and 1 deletion.
  1. +1 −1 hledger-web/Hledger/Web/Handler/MiscR.hs
@@ -83,7 +83,7 @@ getAccountsR = do
VD{caps, j} <- getViewData
when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability")
selectRep $ do
provideJson $ ledgerTopAccounts $ ledgerFromJournal Any j
provideJson $ laccounts $ ledgerFromJournal Any j

getAccounttransactionsR :: Text -> Handler TypedContent
getAccounttransactionsR a = do

0 comments on commit 7c14e10

Please sign in to comment.
You can’t perform that action at this time.