From ac547142ae66f0efc3a207918949772415a04537 Mon Sep 17 00:00:00 2001 From: "S. Zeid" Date: Wed, 11 Oct 2023 22:42:50 -0500 Subject: [PATCH] imp: web: include adeclarationinfo in accounts JSON --- 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 613869a28..102e19023 100644 --- a/hledger-web/Hledger/Web/Handler/MiscR.hs +++ b/hledger-web/Hledger/Web/Handler/MiscR.hs @@ -95,7 +95,7 @@ getAccountsR = do VD{caps, j} <- getViewData when (CapView `notElem` caps) (permissionDenied "Missing the 'view' capability") selectRep $ do - provideJson $ laccounts $ ledgerFromJournal Any j + provideJson $ flattenAccounts $ mapAccounts (accountSetDeclarationInfo j) $ ledgerRootAccount $ ledgerFromJournal Any j getAccounttransactionsR :: Text -> Handler TypedContent getAccounttransactionsR a = do