From 867ccb31d521deacc8938584d3ffc77f18119b00 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 13 Sep 2019 09:03:40 -0700 Subject: [PATCH] ;import: drop inconsistent period --- 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 a30a7d8a3..0862f483c 100755 --- a/hledger/Hledger/Cli/Commands/Import.hs +++ b/hledger/Hledger/Cli/Commands/Import.hs @@ -26,6 +26,7 @@ importmode = hledgerCommandMode ([], Just $ argsFlag "FILE [...]") 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 ", " inputfiles @@ -44,7 +45,7 @@ importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do [] -> do -- in this case, we vary the output depending on --dry-run, which is a bit awkward let semicolon = if dryrun then "; " else "" :: String - printf "%sno new transactions found in %s.\n\n" semicolon inputstr + printf "%sno new transactions found in %s\n\n" semicolon inputstr newts | dryrun -> do printf "; would import %d new transactions from %s:\n\n" (length newts) inputstr -- TODO how to force output here ?