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

imp: setup: output tweaks

Browse Source
This commit is contained in:
Simon Michael 2025-04-19 17:54:03 -10:00
parent a18a4c612d
commit c3c91448a7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,7 +63,7 @@ setup :: CliOpts -> Journal -> IO ()
setup _opts@CliOpts{rawopts_=_rawopts, reportspec_=_rspec} _ignoredj = do setup _opts@CliOpts{rawopts_=_rawopts, reportspec_=_rspec} _ignoredj = do
-- This command is not given a journal and should not use _ignoredj; -- This command is not given a journal and should not use _ignoredj;
-- instead detect it ourselves when we are ready. -- instead detect it ourselves when we are ready.
putStrLn "checking..." putStrLn "Checking your hledger setup.."
setupHledger setupHledger
setupConfig setupConfig
setupFiles setupFiles
@ -78,7 +78,7 @@ pgroup s = putStr $ bold' $ "\n" <> s <> ":\n"
-- | Print a setup test's description, formatting and padding it to a fixed width. -- | Print a setup test's description, formatting and padding it to a fixed width.
pdesc :: String -> IO () pdesc :: String -> IO ()
pdesc s = printf "- %-38s" s pdesc s = printf "* %-38s" s
-- yes, no, unknown -- yes, no, unknown
data YNU = Y | N | U deriving (Eq) data YNU = Y | N | U deriving (Eq)
@ -181,7 +181,7 @@ setupHledger = do
msg = msg =
if exever == latestver if exever == latestver
then exever then exever
else exever <> " installed, latest release is " <> latestver else exever <> " installed, latest is " <> latestver
p ok msg p ok msg
-- pdesc "eget installed ?" -- pdesc "eget installed ?"
@ -189,7 +189,7 @@ setupHledger = do
setupConfig = do setupConfig = do
pgroup "config" pgroup "config"
pdesc "user has a config file ?" pdesc "a user config file exists ? (optional)"
muf <- activeUserConfFile muf <- activeUserConfFile
let let
(ok, msg) = case muf of (ok, msg) = case muf of
@ -226,7 +226,7 @@ setupConfig = do
setupFiles = do setupFiles = do
pgroup "file" pgroup "file"
pdesc "a home directory journal exists ?" pdesc "a home directory journal file exists ?"
mh <- getHomeSafe mh <- getHomeSafe
(ok,msg) <- case mh of (ok,msg) <- case mh of
Just h -> do Just h -> do
@ -253,7 +253,7 @@ setupFiles = do
-- when (isJust mh && isJust mf) $ do -- when (isJust mh && isJust mf) $ do
-- pdesc "$LEDGER_FILE is masking home journal ?" -- pdesc "$LEDGER_FILE is masking home journal ?"
-- i True "" "" -- i Y ""
pdesc "default journal file exists ?" pdesc "default journal file exists ?"
jfile <- defaultJournalPath jfile <- defaultJournalPath