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

;import: drop inconsistent period

Browse Source
This commit is contained in:
Simon Michael 2019-09-13 09:03:40 -07:00
parent bf1e398ffd
commit 867ccb31d5
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

@ -26,6 +26,7 @@ importmode = hledgerCommandMode
([], Just $ argsFlag "FILE [...]") ([], Just $ argsFlag "FILE [...]")
importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do 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 let
inputfiles = listofstringopt "args" rawopts inputfiles = listofstringopt "args" rawopts
inputstr = intercalate ", " inputfiles inputstr = intercalate ", " inputfiles
@ -44,7 +45,7 @@ importcmd opts@CliOpts{rawopts_=rawopts,inputopts_=iopts} j = do
[] -> do [] -> do
-- in this case, we vary the output depending on --dry-run, which is a bit awkward -- in this case, we vary the output depending on --dry-run, which is a bit awkward
let semicolon = if dryrun then "; " else "" :: String 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 newts | dryrun -> do
printf "; would import %d new transactions from %s:\n\n" (length newts) inputstr printf "; would import %d new transactions from %s:\n\n" (length newts) inputstr
-- TODO how to force output here ? -- TODO how to force output here ?