Parse doc cleanup
This commit is contained in:
parent
9a2dc41d30
commit
9ca02e21e4
@ -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
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user