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

Parse doc cleanup

Browse Source
This commit is contained in:
Simon Michael 2008-10-03 02:28:58 +00:00
parent 9a2dc41d30
commit 9ca02e21e4
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Ledger/Parse.hs
View File

@ -1,6 +1,7 @@
{-| {-|
A parser for standard ledger files. Here's the ledger grammar from
the ledger 2.5 manual: A parser for standard ledger files. Here's the grammar from the
ledger 2.5 manual:
@ @
The ledger file format is quite simple, but also very flexible. It supports The ledger file format is quite simple, but also very flexible. It supports
@ -322,12 +323,6 @@ i 2007/03/10 12:26:00 hledger
o 2007/03/10 17:26:02 o 2007/03/10 17:26:02
@ @
-} -}
ledgerfromtimelog :: Parser RawLedger
ledgerfromtimelog = do
tl <- timelog
return $ ledgerFromTimeLog tl
timelog :: Parser TimeLog timelog :: Parser TimeLog
timelog = do timelog = do
entries <- many timelogentry entries <- many timelogentry
@ -345,3 +340,8 @@ timelogentry = do
comment <- restofline comment <- restofline
return $ TimeLogEntry code datetime comment return $ TimeLogEntry code datetime comment
ledgerfromtimelog :: Parser RawLedger
ledgerfromtimelog = do
tl <- timelog
return $ ledgerFromTimeLog tl