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

be direct!

Browse Source
This commit is contained in:
Simon Michael 2009-04-08 08:57:05 +00:00
parent 29d9aed845
commit c0c9c7a070
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AddCommand.hs
View File

@ -25,7 +25,7 @@ add :: [Opt] -> [String] -> Ledger -> IO ()
add opts args l add opts args l
| filepath (rawledger l) == "-" = return () | filepath (rawledger l) == "-" = return ()
| otherwise = do | otherwise = do
hPutStrLn stderr ("Please enter one or more transactions, which will be added to your ledger file.\n\ hPutStrLn stderr ("Enter one or more transactions, which will be added to your ledger file.\n\
\A blank account or amount ends a transaction, control-d to finish.") \A blank account or amount ends a transaction, control-d to finish.")
ts <- getAndAddTransactions l args ts <- getAndAddTransactions l args
hPutStrLn stderr $ printf "\nAdded %d transactions to %s" (length ts) (filepath $ rawledger l) hPutStrLn stderr $ printf "\nAdded %d transactions to %s" (length ts) (filepath $ rawledger l)