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

imp:setup: output tweaks

Browse Source
This commit is contained in:
Simon Michael 2025-04-23 22:50:19 -10:00
parent b295cce796
commit 8705b935de
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Commands/Setup.hs
View File

@ -344,7 +344,7 @@ setupPager version conf = do
let arg = reverse $ takeWhile (`notElem` ['=',' ']) $ reverse a let arg = reverse $ takeWhile (`notElem` ['=',' ']) $ reverse a
return $ Just $ parseYNA arg return $ Just $ parseYNA arg
pdesc "it will use a pager for large output ?" pdesc "hledger will use a pager when needed ?"
mpager <- findPager mpager <- findPager
case mpager of case mpager of
Nothing -> p N "no pager was found" Nothing -> p N "no pager was found"
@ -556,7 +556,7 @@ setupAccounts version mj = do
pdesc "all accounts have types ?" pdesc "all accounts have types ?"
if null untypedaccts then i Y "" else i N "" if null untypedaccts then i Y "" else i N ""
pdesc "all used accounts are declared ?" pdesc "all accounts are declared ?"
if null undeclaredaccts then i Y "" else i N "" if null undeclaredaccts then i Y "" else i N ""
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
@ -574,7 +574,7 @@ setupCommodities version mj = do
Nothing -> return () Nothing -> return ()
Just j -> do Just j -> do
pdesc "all used commodities are declared ?" pdesc "all commodities are declared ?"
let undeclaredcommodities = journalCommoditiesUsed j \\ journalCommoditiesDeclared j let undeclaredcommodities = journalCommoditiesUsed j \\ journalCommoditiesDeclared j
if null undeclaredcommodities then p Y "" else p N "declaring helps set their precision" if null undeclaredcommodities then p Y "" else p N "declaring helps set their precision"