From a0ad290570998da4e1770e49873655de29699662 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 9 Feb 2007 08:27:42 +0000
Subject: [PATCH] fix blank line in register

---
 Types.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Types.hs b/Types.hs
index 071970c8c..bbba679c4 100644
--- a/Types.hs
+++ b/Types.hs
@@ -45,21 +45,22 @@ showLedger l = "Ledger has\n"
 showModifierEntries :: [ModifierEntry] -> String
 showModifierEntries [] = ""
 showModifierEntries es =
-    (show n) ++ " modifier " ++ (inflectEntries n) ++ ":\n" ++ unlines (map show es)
+    (show n) ++ " modifier " ++ (inflectEntries n) ++ ":\n" ++ concat (map show es)
             where n = length es
 
 showPeriodicEntries :: [PeriodicEntry] -> String
 showPeriodicEntries [] = ""
 showPeriodicEntries es =
-    (show n) ++ " periodic " ++ (inflectEntries n) ++ ":\n" ++ unlines (map show es)
+    (show n) ++ " periodic " ++ (inflectEntries n) ++ ":\n" ++ concat (map show es)
             where n = length es
 
 showEntries :: [Entry] -> String
 showEntries [] = ""
 showEntries es =
-    (show n) ++ " " ++ (inflectEntries n) ++ ":\n" ++ unlines (map show es)
+    (show n) ++ " " ++ (inflectEntries n) ++ ":\n" ++ concat (map show es)
             where n = length es
 
+inflectEntries :: Int -> String
 inflectEntries 1 = "entry"
 inflectEntries _ = "entries"