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

imp: accounts: at --debug 2, show account declaration positions (#1909)

Browse Source
This commit is contained in:
Simon Michael 2022-08-07 10:48:55 +01:00
parent 07e3dca735
commit 035f2ac4bb
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hledger/Hledger/Cli/Commands/Accounts.hs
View File

@ -92,9 +92,19 @@ accounts CliOpts{rawopts_=rawopts, reportspec_=ReportSpec{_rsQuery=query,_rsRepo
indent = T.replicate (2 * (max 0 (accountNameLevel a - drop_ ropts) - 1)) " "
droppedName = accountNameDrop (drop_ ropts) a
showType a
| types = spacer <> " ; type: " <> maybe "" (T.pack . show) (journalAccountType j a)
| types = pad a <> " ; type: " <> maybe "" (T.pack . show) (journalAccountType j a)
| otherwise = ""
where
spacer = T.replicate (maxwidth - T.length (showName a)) " "
-- for troubleshooting account display order
dbgAcctDeclOrder a
| debugLevel >= 2 =
(if types then "," else pad a <> " ;") <>
case lookup a $ jdeclaredaccounts j of
Just adi ->
" declared at " <> (T.pack $ sourcePosPretty $ adisourcepos adi) <>
", overall declaration order " <> (T.pack $ show $ adideclarationorder adi)
Nothing -> " undeclared"
| otherwise = ""
pad a = T.replicate (maxwidth - T.length (showName a)) " "
maxwidth = maximum $ map (T.length . showName) clippedaccts
forM_ clippedaccts $ \a -> T.putStrLn $ showName a <> showType a
forM_ clippedaccts $ \a -> T.putStrLn $ showName a <> showType a <> dbgAcctDeclOrder a