From 0adcdf21f8fc334e57d7133e5784636ef2b3ab7c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 19 Feb 2016 22:57:06 -0800 Subject: [PATCH] lib: timedot parsing fix --- hledger-lib/Hledger/Read/TimedotReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Read/TimedotReader.hs b/hledger-lib/Hledger/Read/TimedotReader.hs index ef1c80732..f8a3edf85 100644 --- a/hledger-lib/Hledger/Read/TimedotReader.hs +++ b/hledger-lib/Hledger/Read/TimedotReader.hs @@ -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