diff --git a/Ledger/Amount.hs b/Ledger/Amount.hs
index c5cefbc60..4be2d8f9c 100644
--- a/Ledger/Amount.hs
+++ b/Ledger/Amount.hs
@@ -1,7 +1,7 @@
 {-|
 An 'Amount' is some quantity of money, shares, or anything else.
 
-A simple amount is a commodity, quantity pair (where commodity can be anything):
+A simple amount is a commodity, quantity pair:
 
 @
   $1 
diff --git a/Ledger/RawLedger.hs b/Ledger/RawLedger.hs
index a15d329cb..c5846128f 100644
--- a/Ledger/RawLedger.hs
+++ b/Ledger/RawLedger.hs
@@ -72,8 +72,8 @@ filterRawLedgerEntriesByClearedStatus False l = l
 filterRawLedgerEntriesByClearedStatus True  (RawLedger ms ps es f) =
     RawLedger ms ps (filter estatus es) f
 
--- | Strip out any (virtual transactions), if the flag is true, otherwise
--- do no filtering.
+-- | Strip out any virtual transactions, if the flag is true, otherwise do
+-- no filtering.
 filterRawLedgerTransactionsByRealness :: Bool -> RawLedger -> RawLedger
 filterRawLedgerTransactionsByRealness False l = l
 filterRawLedgerTransactionsByRealness True (RawLedger ms ps es f) =