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

imp:accounts: --types shows a tag only when type is known

Browse Source
This commit is contained in:
Simon Michael 2025-09-20 05:53:04 -07:00
parent 18f5c8aa24
commit d9bc45b523
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,9 +124,10 @@ accounts opts@CliOpts{rawopts_=rawopts, reportspec_=ReportSpec{_rsQuery=query,_r
where where
indent = T.replicate (2 * (max 0 (accountNameLevel a - drop_ ropts) - 1)) " " indent = T.replicate (2 * (max 0 (accountNameLevel a - drop_ ropts) - 1)) " "
droppedName = accountNameDrop (drop_ ropts) a droppedName = accountNameDrop (drop_ ropts) a
showType a showType a =
| types = pad a <> " ; type: " <> maybe "" (T.pack . show) (journalAccountType j a) case (types, journalAccountType j a) of
| otherwise = "" (True, Just t) -> pad a <> " ; type: " <> T.pack (show t)
_ -> ""
showAcctDeclOrder a showAcctDeclOrder a
| positions = | positions =
(if types then "," else pad a <> " ;") <> (if types then "," else pad a <> " ;") <>