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

comment update

Browse Source
This commit is contained in:
Simon Michael 2008-10-15 00:33:15 +00:00
parent 042a8179e8
commit b1e2a83556
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Ledger.hs
View File

@ -3,8 +3,6 @@
A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of account A 'Ledger' stores, for efficiency, a 'RawLedger' plus its tree of account
names, a map from account names to 'Account's, and the display precision. names, a map from account names to 'Account's, and the display precision.
Typically it has also has had the uninteresting 'Entry's filtered out. Typically it has also has had the uninteresting 'Entry's filtered out.
In addition, it stores the account filter pattern and a second set of fields
providing the filtered entries & transactions.
-} -}

5
Ledger/Parse.hs
View File

@ -314,8 +314,9 @@ commoditysymbol = many1 (noneOf "-.0123456789;\n ") <?> "commodity symbol"
-- gawd.. trying to parse a ledger number without error: -- gawd.. trying to parse a ledger number without error:
-- | parse a numeric quantity and also return the number of digits to the -- | parse a ledger-style numeric quantity and also return the number of
-- right of the decimal point and whether thousands are separated by comma -- digits to the right of the decimal point and whether thousands are
-- separated by comma.
amountquantity :: Parser (Double, Int, Bool) amountquantity :: Parser (Double, Int, Bool)
amountquantity = do amountquantity = do
sign <- optionMaybe $ string "-" sign <- optionMaybe $ string "-"