From 27a62554048d11f39617133331458fa401587ffa Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 28 Jan 2007 21:33:00 +0000
Subject: [PATCH] eat space before value & period expressions

---
 hledger.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/hledger.hs b/hledger.hs
index 349e86548..728c55ff0 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -297,6 +297,7 @@ ledgertransactions = (ledgertransaction <?> "transaction") `manyTill` (newline <
 -- "automated entry"
 ledgermodifierentry = do
   char '=' <?> "entry"
+  many spacenonewline
   valueexpr <- restofline
   transactions <- ledgertransactions
   ledgernondatalines
@@ -304,6 +305,7 @@ ledgermodifierentry = do
 
 ledgerperiodicentry = do
   char '~' <?> "entry"
+  many spacenonewline
   periodexpr <- restofline
   transactions <- ledgertransactions
   ledgernondatalines
@@ -350,7 +352,7 @@ spacenonewline = satisfy (\c -> c `elem` " \v\f\t")
 
 -- run tests
 
-main = do
+test = do
   parseTest ledgertransaction sample_transaction
   parseTest ledgertransaction sample_transaction2
   parseTest ledgerentry sample_entry
@@ -369,6 +371,9 @@ main = do
   parseTest ledger sample_periodic_entry2
   parseMyLedgerFile >>= showParseResult
   return ()
+--   assert_ $ amount t1 == 8.50
+--   putStrLn "ok"
+--     where assert_ e = assert e return ()             
       
 parseMyLedgerFile = do
   fname <- ledgerFilePath
@@ -389,6 +394,3 @@ showParseResult r =
                    print x
                    putStr $ show $ length $ entries x; putStr " entries\n"
 
---   assert_ $ amount t1 == 8.50
---   putStrLn "ok"
---     where assert_ e = assert e return ()