From daff4bf09e64fb4abec19ea0e7d08e119800546d Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 28 Jun 2008 05:07:09 +0000
Subject: [PATCH] fix newlines

---
 LedgerEntry.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LedgerEntry.hs b/LedgerEntry.hs
index 82bb6becd..575e18371 100644
--- a/LedgerEntry.hs
+++ b/LedgerEntry.hs
@@ -50,7 +50,7 @@ autofillEntry e@(LedgerEntry _ _ _ _ _ ts _) =
 
 showEntry :: LedgerEntry -> String
 showEntry e = 
-    "\n" ++ precedingcomment ++ description ++ unlines (showtxns $ etransactions e)
+    unlines $ [precedingcomment ++ description] ++ (showtxns $ etransactions e) ++ [""]
     where
       precedingcomment = epreceding_comment_lines e
       description = concat [date, status, code, desc] -- , comment]