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

print: don't show a trailing space when description is blank

Browse Source
This commit is contained in:
Simon Michael 2011-01-19 18:55:16 +00:00
parent 8980dd9336
commit 810c6a5dac
6 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-lib/Hledger/Data/Transaction.hs
View File

@ -72,8 +72,8 @@ showTransaction' elide effective t =
| otherwise = showdate (tdate t) ++ maybe "" showedate (teffectivedate t) | otherwise = showdate (tdate t) ++ maybe "" showedate (teffectivedate t)
status = if tstatus t then " *" else "" status = if tstatus t then " *" else ""
code = if length (tcode t) > 0 then printf " (%s)" $ tcode t else "" code = if length (tcode t) > 0 then printf " (%s)" $ tcode t else ""
desc = ' ' : tdescription t desc = if null d then "" else " " ++ d where d = tdescription t
comment = if null com then "" else " ; " ++ com where com = tcomment t comment = if null c then "" else " ; " ++ c where c = tcomment t
showdate = printf "%-10s" . showDate showdate = printf "%-10s" . showDate
showedate = printf "=%s" . showdate showedate = printf "=%s" . showdate
showpostings ps showpostings ps