add: output a final newline after control-d
This commit is contained in:
parent
5da1e4c71c
commit
41a58609fb
@ -55,7 +55,7 @@ add opts j
|
||||
let args = words' $ query_ $ reportopts_ opts
|
||||
(defdate, moredefs) = headTailDef today args
|
||||
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
|
||||
|
||||
-- | Loop reading transactions from the console, prompting for,
|
||||
|
||||
Loading…
Reference in New Issue
Block a user