From 56a37aabcf86eba219495591593412558dc48542 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 30 May 2013 15:17:21 -0700
Subject: [PATCH] small cleanup

---
 hledger-lib/Hledger/Read/JournalReader.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index 3e8327338..062e19e41 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -508,7 +508,7 @@ postingp = do
   account <- modifiedaccountname
   let (ptype, account') = (accountNamePostingType account, unbracket account)
   amount <- spaceandamountormissing
-  mBalanceAssertion <- balanceassertion
+  massertion <- balanceassertion
   _ <- fixedlotprice
   many spacenonewline
   ctx <- getState
@@ -517,7 +517,7 @@ postingp = do
   -- oh boy
   d  <- maybe (return Nothing) (either (fail.show) (return.Just)) (parseWithCtx ctx date `fmap` dateValueFromTags tags)
   d2 <- maybe (return Nothing) (either (fail.show) (return.Just)) (parseWithCtx ctx date `fmap` date2ValueFromTags tags)
-  return posting{pdate=d, pdate2=d2, pstatus=status, paccount=account', pamount=amount, pcomment=comment, ptype=ptype, ptags=tags, pbalanceassertion=mBalanceAssertion}
+  return posting{pdate=d, pdate2=d2, pstatus=status, paccount=account', pamount=amount, pcomment=comment, ptype=ptype, ptags=tags, pbalanceassertion=massertion}
 
 #ifdef TESTS
 test_postingp = do