From 497daebd44157f67add56697c52cce5f2e3015bf Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 17 Oct 2008 00:57:00 +0000
Subject: [PATCH] docs

---
 Ledger/Amount.hs    | 2 +-
 Ledger/RawLedger.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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) =