From b1e2a8355688ab29de8776eb7458aa68aa2dc58a Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 15 Oct 2008 00:33:15 +0000 Subject: [PATCH] comment update --- Ledger/Ledger.hs | 2 -- Ledger/Parse.hs | 5 +++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/Ledger/Ledger.hs b/Ledger/Ledger.hs index e40db657a..d7ec26663 100644 --- a/Ledger/Ledger.hs +++ b/Ledger/Ledger.hs @@ -3,8 +3,6 @@ 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. 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. -} diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs index 54b0acdeb..ec18fa4d0 100644 --- a/Ledger/Parse.hs +++ b/Ledger/Parse.hs @@ -314,8 +314,9 @@ commoditysymbol = many1 (noneOf "-.0123456789;\n ") "commodity symbol" -- gawd.. trying to parse a ledger number without error: --- | parse a numeric quantity and also return the number of digits to the --- right of the decimal point and whether thousands are separated by comma +-- | parse a ledger-style numeric quantity and also return the number of +-- digits to the right of the decimal point and whether thousands are +-- separated by comma. amountquantity :: Parser (Double, Int, Bool) amountquantity = do sign <- optionMaybe $ string "-"