simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues Projects Releases Wiki Activity

type signature

Browse Source
This commit is contained in:
Simon Michael 2010-07-11 22:17:48 +00:00
parent b5d1ebba30
commit e499efce77
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-lib/Hledger/Data/Posting.hs
View File

@ -35,6 +35,7 @@ showPosting (Posting{paccount=a,pamount=amt,pcomment=com,ptype=t}) =
showamount = padleft 12 . showMixedAmountOrZero
comment = if null com then "" else " ; " ++ com
-- XXX refactor
showPostingForRegister :: Posting -> String
showPostingForRegister (Posting{paccount=a,pamount=amt,ptype=t}) =
concatTopPadded [showaccountname a ++ " ", showamount amt]
where