slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

!account affects timelog entries

Browse Source
This commit is contained in:
nick 2008-12-10 17:40:36 +00:00
parent 61b288bf05
commit 9b7a3689f5
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Ledger/Parse.hs
View File

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