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 "-"