From 9b7a3689f5fd3e684d3c0b24eb0f72e4e530db7f Mon Sep 17 00:00:00 2001
From: nick <nick@ingolia.org>
Date: Wed, 10 Dec 2008 17:40:36 +0000
Subject: [PATCH] !account affects timelog entries

---
 Ledger/Parse.hs | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index ef370008a..e8e8189f7 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -454,25 +454,20 @@ i 2007/03/10 12:26:00 hledger
 o 2007/03/10 17:26:02
 
 -}
-timelog :: GenParser Char st TimeLog
+timelog :: GenParser Char LedgerFileCtx TimeLog
 timelog = do
   entries <- many timelogentry <?> "timelog entry"
   eof
   return $ TimeLog entries
 
-timelogentry :: GenParser Char st TimeLogEntry
+timelogentry :: GenParser Char LedgerFileCtx TimeLogEntry
 timelogentry = do
   code <- oneOf "bhioO"
   many1 spacenonewline
   datetime <- ledgerdatetime
-  comment <- restofline
+  comment <- liftM2 (++) getParentAccount restofline
   return $ TimeLogEntry code datetime comment
 
---ledgerfromtimelog :: GenParser Char st RawLedger
---ledgerfromtimelog = do 
---  tl <- timelog
---  return $ ledgerFromTimeLog tl
-
 
 -- misc parsing