From 2dc44cb131a54f58bfb718bd0247a12075970f1f Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 21 Oct 2014 12:01:47 -0700
Subject: [PATCH] register command cleanups

---
 hledger/Hledger/Cli/Register.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/hledger/Hledger/Cli/Register.hs b/hledger/Hledger/Cli/Register.hs
index 31467bb9a..c0fe65b7f 100644
--- a/hledger/Hledger/Cli/Register.hs
+++ b/hledger/Hledger/Cli/Register.hs
@@ -46,15 +46,13 @@ registermode = (defCommandMode $ ["register"] ++ aliases) {
 register :: CliOpts -> Journal -> IO ()
 register opts@CliOpts{reportopts_=ropts} j = do
   d <- getCurrentDay
-  let r = postingsReport ropts (queryFromOpts d ropts) j
-
   (path, ext) <- outputFilePathAndExtensionFromOpts opts
   let filename = fst $ splitExtension $ snd $ splitFileName path
       write  | filename `elem` ["","-"] && ext `elem` ["","csv","txt"] = putStr
              | otherwise                                               = writeFile path
-      render | ext=="csv" = \_ r -> (printCSV . postingsReportAsCsv) r
+      render | ext=="csv" = const ((++"\n") . printCSV . postingsReportAsCsv)
              | otherwise  = postingsReportAsText
-  write $ render opts r
+  write $ render opts $ postingsReport ropts (queryFromOpts d ropts) j
 
 postingsReportAsCsv :: PostingsReport -> CSV
 postingsReportAsCsv (_,is) =