From d4eb3caf701112726830df974b4ea5f273ce8f95 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 15 Mar 2018 19:39:15 +0000
Subject: [PATCH] bal: comment fixes [ci skip]

---
 hledger/Hledger/Cli/Commands/Balance.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Balance.hs b/hledger/Hledger/Cli/Commands/Balance.hs
index c764f8efc..30bffd773 100644
--- a/hledger/Hledger/Cli/Commands/Balance.hs
+++ b/hledger/Hledger/Cli/Commands/Balance.hs
@@ -344,9 +344,9 @@ balance opts@CliOpts{rawopts_=rawopts,reportopts_=ropts} j = do
                 _      -> multiBalanceReportAsText ropts
           writeOutput opts $ render report
 
--- | Re-map account names to closet parent with periodic transaction from budget.
--- Accounts that dont have suitable parent are either remapped to "<unbudgeted>:topAccount" 
--- or left as-is if --show-unbudgeted is provided 
+-- | Re-map account names to closest parent with periodic transaction from budget.
+-- Accounts that don't have suitable parent are either remapped to "<unbudgeted>:topAccount" 
+-- or left as-is if --show-unbudgeted is provided. 
 budgetRollUp :: CliOpts -> Journal -> Journal -> Journal
 budgetRollUp CliOpts{rawopts_=rawopts} budget j = j { jtxns = remapTxn <$> jtxns j }
     where
@@ -365,7 +365,7 @@ budgetRollUp CliOpts{rawopts_=rawopts} budget j = j { jtxns = remapTxn <$> jtxns
         mapPostings f t = txnTieKnot $ t { tpostings = f $ tpostings t }
 
 -- | Generate journal of all periodic transactions in the given journal for the
--- entireity of its history or reporting period, whatever is smaller
+-- entirety of its history or reporting period, whatever is smaller.
 budgetJournal :: CliOpts -> Journal -> Journal
 budgetJournal opts j = journalBalanceTransactions' opts j { jtxns = budget }
   where