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

add missing type signatures, for tags

Browse Source
This commit is contained in:
Simon Michael 2009-04-07 21:38:38 +00:00
parent 2eb5f40875
commit 2c989522da
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Ledger/Parse.hs
View File

@ -425,6 +425,7 @@ postingamount =
return a return a
) <|> return missingamt ) <|> return missingamt
someamount :: GenParser Char st MixedAmount
someamount = try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount someamount = try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount
leftsymbolamount :: GenParser Char st MixedAmount leftsymbolamount :: GenParser Char st MixedAmount

1
Ledger/Transaction.hs
View File

@ -35,4 +35,5 @@ accountNamesFromTransactions ts = nub $ map account ts
sumTransactions :: [Transaction] -> MixedAmount sumTransactions :: [Transaction] -> MixedAmount
sumTransactions = sum . map amount sumTransactions = sum . map amount
nulltxn :: Transaction
nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting