From 1fd416ba960fba01f4dd64e505353e58ba9f908c Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 16 Apr 2009 06:34:32 +0000
Subject: [PATCH] whitespace

---
 Ledger/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index fc806b41e..a89c80445 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -72,7 +72,7 @@ printParseError e = do putStr "ledger parse error at "; print e
 
 parseLedgerFile :: LocalTime -> FilePath -> ErrorT String IO RawLedger
 parseLedgerFile t "-" = liftIO (hGetContents stdin) >>= parseLedger t "-"
-parseLedgerFile t f   = liftIO (readFile f)         >>= parseLedger t f
+parseLedgerFile t f   = liftIO (readFile f) >>= parseLedger t f
 
 -- | Parses the contents of a ledger file, or gives an error.  Requires
 -- the current (local) time to calculate any unfinished timelog sessions,