lib: timedot parsing fix

This commit is contained in:
Simon Michael 2016-02-19 22:57:06 -08:00
parent b26dd3d9b0
commit 0adcdf21f8

View File

@ -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