slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix blank line in register

Browse Source
This commit is contained in:
Simon Michael 2007-02-09 08:27:42 +00:00
parent cda849fbff
commit a0ad290570
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Types.hs
View File

@ -45,21 +45,22 @@ showLedger l = "Ledger has\n"
showModifierEntries :: [ModifierEntry] -> String showModifierEntries :: [ModifierEntry] -> String
showModifierEntries [] = "" showModifierEntries [] = ""
showModifierEntries es = 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 where n = length es
showPeriodicEntries :: [PeriodicEntry] -> String showPeriodicEntries :: [PeriodicEntry] -> String
showPeriodicEntries [] = "" showPeriodicEntries [] = ""
showPeriodicEntries es = 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 where n = length es
showEntries :: [Entry] -> String showEntries :: [Entry] -> String
showEntries [] = "" showEntries [] = ""
showEntries es = showEntries es =
(show n) ++ " " ++ (inflectEntries n) ++ ":\n" ++ unlines (map show es) (show n) ++ " " ++ (inflectEntries n) ++ ":\n" ++ concat (map show es)
where n = length es where n = length es
inflectEntries :: Int -> String
inflectEntries 1 = "entry" inflectEntries 1 = "entry"
inflectEntries _ = "entries" inflectEntries _ = "entries"