mirror of
https://github.com/simonmichael/hledger.git
synced 2024-12-29 05:11:33 +03:00
lib: timedot parsing fix
This commit is contained in:
parent
b26dd3d9b0
commit
0adcdf21f8
@ -96,7 +96,7 @@ timedotdayp :: ParsecT [Char] JournalContext (ExceptT String IO) [Transaction]
|
||||
timedotdayp = do
|
||||
ptrace " timedotdayp"
|
||||
d <- datep <* eolof
|
||||
es <- catMaybes <$> many (const Nothing <$> emptyorcommentlinep <|>
|
||||
es <- catMaybes <$> many (const Nothing <$> try emptyorcommentlinep <|>
|
||||
Just <$> (notFollowedBy datep >> timedotentryp))
|
||||
return $ map (\t -> t{tdate=d}) es -- <$> many timedotentryp
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user