type signature

2010-07-11 22:17:48 +00:00 · 2010-07-11 22:17:48 +00:00 · e499efce77
commit e499efce77
parent b5d1ebba30
1 changed files with 1 additions and 0 deletions
--- a/hledger-lib/Hledger/Data/Posting.hs
+++ b/hledger-lib/Hledger/Data/Posting.hs
@ -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