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

fix newlines

Browse Source
This commit is contained in:
Simon Michael 2008-06-28 05:07:09 +00:00
parent d795c0bac8
commit daff4bf09e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LedgerEntry.hs
View File

@ -50,7 +50,7 @@ autofillEntry e@(LedgerEntry _ _ _ _ _ ts _) =
showEntry :: LedgerEntry -> String showEntry :: LedgerEntry -> String
showEntry e = showEntry e =
"\n" ++ precedingcomment ++ description ++ unlines (showtxns $ etransactions e) unlines $ [precedingcomment ++ description] ++ (showtxns $ etransactions e) ++ [""]
where where
precedingcomment = epreceding_comment_lines e precedingcomment = epreceding_comment_lines e
description = concat [date, status, code, desc] -- , comment] description = concat [date, status, code, desc] -- , comment]