formatting

This commit is contained in:
Simon Michael 2008-10-09 09:25:37 +00:00
parent e7cf5df029
commit 3fcb1aaa6c

View File

@ -33,7 +33,8 @@ balwidth = 12
@
-}
showEntryDescription e = (showDate $ edate e) ++ " " ++ (showDescription $ edescription e) ++ " "
showEntryDescription e =
(showDate $ edate e) ++ " " ++ (showDescription $ edescription e) ++ " "
showDate d = printf "%-10s" d
showDescription s = printf "%-20s" (elideRight 20 s)