From c17b15e45441a343fb40f96b087db432f27f8023 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 13 Oct 2025 11:43:21 -1000 Subject: [PATCH] ;imp:setup: accounts of all types wording --- hledger/Hledger/Cli/Commands/Setup.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Setup.hs b/hledger/Hledger/Cli/Commands/Setup.hs index 335a404dd..95aea9bec 100644 --- a/hledger/Hledger/Cli/Commands/Setup.hs +++ b/hledger/Hledger/Cli/Commands/Setup.hs @@ -438,10 +438,10 @@ setupJournal meconf = do pdesc "all accounts have types ?" if null untypedaccts then p Y "" else i N (show (length untypedaccts) <> " accounts without types") - pdesc "all account types are detected ?" + pdesc "accounts of all types exist ?" if null typesnotfound - then p Y (concatMap show accttypes <> " account types detected") - else p N (concatMap show typesnotfound <> " not found; bs/cf/is reports may not work") + then p Y (concatMap show accttypes <> " accounts detected") + else p N (concatMap show typesnotfound <> " accounts not found; some reports may not work") pdesc "commodities/accounts are being checked ?" let strict = isJust $ conflookup (\a -> any (==a) ["-s", "--strict"])