add missing type signatures, for tags

2009-04-07 21:38:38 +00:00 · 2009-04-07 21:38:38 +00:00 · 2c989522da
commit 2c989522da
parent 2eb5f40875
2 changed files with 2 additions and 0 deletions
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@ -425,6 +425,7 @@ postingamount =
        return a
      ) <|> return missingamt

+someamount :: GenParser Char st MixedAmount
 someamount = try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount 

 leftsymbolamount :: GenParser Char st MixedAmount
--- a/Ledger/Transaction.hs
+++ b/Ledger/Transaction.hs
@ -35,4 +35,5 @@ accountNamesFromTransactions ts = nub $ map account ts
 sumTransactions :: [Transaction] -> MixedAmount
 sumTransactions = sum . map amount

+nulltxn :: Transaction
 nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting