slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

journal: allow whitespace following a comment directive

Browse Source
This commit is contained in:
Simon Michael 2015-05-09 13:25:31 -07:00
parent 0f0b15e8f1
commit 7c3379db63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Read/JournalReader.hs
View File

@ -894,7 +894,7 @@ test_numberp = do
multilinecommentp :: Stream [Char] m Char => ParsecT [Char] JournalContext m () multilinecommentp :: Stream [Char] m Char => ParsecT [Char] JournalContext m ()
multilinecommentp = do multilinecommentp = do
string "comment" >> newline string "comment" >> many spacenonewline >> newline
go go
where where
go = try (string "end comment" >> newline >> return ()) go = try (string "end comment" >> newline >> return ())