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

imp:import: show briefer no txns output, just file names

Browse Source
This commit is contained in:
Simon Michael 2025-08-27 10:54:13 +01:00
parent 97899f9a9b
commit 7de0c0ac7a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger/Hledger/Cli/Commands/Import.hs
View File

@ -19,6 +19,7 @@ import Hledger
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
import Hledger.Cli.Commands.Add (journalAddTransaction) import Hledger.Cli.Commands.Add (journalAddTransaction)
import System.IO (stderr) import System.IO (stderr)
import System.FilePath (takeFileName)
importmode = hledgerCommandMode importmode = hledgerCommandMode
$(embedFileRelative "Hledger/Cli/Commands/Import.txt") $(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 -- XXX could be helpful to show the last-seen date, and number of old transactions, too
let let
inputfiles = listofstringopt "args" rawopts inputfiles = listofstringopt "args" rawopts
inputstr = intercalate ", " $ map quoteIfNeeded inputfiles inputstr = intercalate ", " $ map (quoteIfNeeded.takeFileName) inputfiles
catchup = boolopt "catchup" rawopts catchup = boolopt "catchup" rawopts
dryrun = boolopt "dry-run" rawopts dryrun = boolopt "dry-run" rawopts
combinedStyles = combinedStyles =