Parse doc cleanup

This commit is contained in:
Simon Michael 2008-10-03 02:28:58 +00:00
parent 9a2dc41d30
commit 9ca02e21e4

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
@ -322,12 +323,6 @@ i 2007/03/10 12:26:00 hledger
o 2007/03/10 17:26:02
@
-}
ledgerfromtimelog :: Parser RawLedger
ledgerfromtimelog = do
tl <- timelog
return $ ledgerFromTimeLog tl
timelog :: Parser TimeLog
timelog = do
entries <- many timelogentry
@ -345,3 +340,8 @@ timelogentry = do
comment <- restofline
return $ TimeLogEntry code datetime comment
ledgerfromtimelog :: Parser RawLedger
ledgerfromtimelog = do
tl <- timelog
return $ ledgerFromTimeLog tl