From 41a58609fbd4672d434a90888bc0cc532ce76487 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 12 Feb 2014 08:22:44 -0800
Subject: [PATCH] add: output a final newline after control-d

---
 hledger/Hledger/Cli/Add.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Add.hs b/hledger/Hledger/Cli/Add.hs
index 058766fe6..0c929a7e6 100644
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@@ -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,