From 7de0c0ac7ade1d2933057de1c6c49295e892fa9e Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 27 Aug 2025 10:54:13 +0100 Subject: [PATCH] imp:import: show briefer no txns output, just file names --- hledger/Hledger/Cli/Commands/Import.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hledger/Hledger/Cli/Commands/Import.hs b/hledger/Hledger/Cli/Commands/Import.hs index 4b72d5bcb..425c41d3f 100644 --- a/hledger/Hledger/Cli/Commands/Import.hs +++ b/hledger/Hledger/Cli/Commands/Import.hs @@ -19,6 +19,7 @@ import Hledger import Hledger.Cli.CliOptions import Hledger.Cli.Commands.Add (journalAddTransaction) import System.IO (stderr) +import System.FilePath (takeFileName) importmode = hledgerCommandMode $(embedFileRelative "Hledger/Cli/Commands/Import.txt") @@ -33,7 +34,7 @@ importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do -- XXX could be helpful to show the last-seen date, and number of old transactions, too let inputfiles = listofstringopt "args" rawopts - inputstr = intercalate ", " $ map quoteIfNeeded inputfiles + inputstr = intercalate ", " $ map (quoteIfNeeded.takeFileName) inputfiles catchup = boolopt "catchup" rawopts dryrun = boolopt "dry-run" rawopts combinedStyles =