journal: allow whitespace following a comment directive

2015-05-09 13:25:31 -07:00 · 2015-05-09 13:25:31 -07:00 · 7c3379db63
commit 7c3379db63
parent 0f0b15e8f1
1 changed files with 1 additions and 1 deletions
--- 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 ())