From 7c3379db6384f5cba923f2725d819fa167016673 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 9 May 2015 13:25:31 -0700 Subject: [PATCH] journal: allow whitespace following a comment directive --- hledger-lib/Hledger/Read/JournalReader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ())