From 7c14e10858b1edc4d787ba22f6135b1f9dc12125 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 9 Mar 2019 15:29:22 -0800
Subject: [PATCH] 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.
---
 hledger-web/Hledger/Web/Handler/MiscR.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-web/Hledger/Web/Handler/MiscR.hs b/hledger-web/Hledger/Web/Handler/MiscR.hs
index da26eb367..3ffecdd34 100644
--- a/hledger-web/Hledger/Web/Handler/MiscR.hs
+++ b/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