diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index 54778a635..22f92ac27 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -894,7 +894,7 @@ test_numberp = do multilinecommentp :: Stream [Char] m Char => ParsecT [Char] JournalContext m () multilinecommentp = do - string "comment" >> newline + string "comment" >> many spacenonewline >> newline go where go = try (string "end comment" >> newline >> return ())