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

add: output a final newline after control-d

Browse Source
This commit is contained in:
Simon Michael 2014-02-12 08:22:44 -08:00
parent 5da1e4c71c
commit 41a58609fb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Add.hs
View File

@ -55,7 +55,7 @@ add opts j
let args = words' $ query_ $ reportopts_ opts let args = words' $ query_ $ reportopts_ opts
(defdate, moredefs) = headTailDef today args (defdate, moredefs) = headTailDef today args
getAndAddTransactionsLoop j opts defdate moredefs getAndAddTransactionsLoop j opts defdate moredefs
`E.catch` (\e -> unless (isEOFError e) $ ioError e) `E.catch` (\e -> if isEOFError e then putStr "\n" else ioError e)
where f = journalFilePath j where f = journalFilePath j
-- | Loop reading transactions from the console, prompting for, -- | Loop reading transactions from the console, prompting for,