Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Muse reader: require that comment semicolons are in the first column

Browse source 
Fixes #4551
This commit is contained in:
Alexander Krotov 2018-04-15 12:17:15 +03:00
parent 34d8ffbcfc
commit 6be0139145
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Text/Pandoc/Readers/Muse.hs
View file

@ -348,6 +348,7 @@ blockElements = do
-- | Parse a line comment, starting with @;@ in the first column. -- | Parse a line comment, starting with @;@ in the first column.
comment :: PandocMonad m => MuseParser m (F Blocks) comment :: PandocMonad m => MuseParser m (F Blocks)
comment = try $ do comment = try $ do
getPosition >>= \pos -> guard (sourceColumn pos == 1)
char ';' char ';'
optional (spaceChar >> many (noneOf "\n")) optional (spaceChar >> many (noneOf "\n"))
eol eol

1
test/Tests/Readers/Muse.hs
View file

@ -521,6 +521,7 @@ tests =
, "Text after empty comment" =: ";\nfoo" =?> para "foo" -- Make sure we don't consume newline while looking for whitespace , "Text after empty comment" =: ";\nfoo" =?> para "foo" -- Make sure we don't consume newline while looking for whitespace
, "Not a comment (does not start with a semicolon)" =: " ; Not a comment" =?> para (text "; Not a comment") , "Not a comment (does not start with a semicolon)" =: " ; Not a comment" =?> para (text "; Not a comment")
, "Not a comment (has no space after semicolon)" =: ";Not a comment" =?> para (text ";Not a comment") , "Not a comment (has no space after semicolon)" =: ";Not a comment" =?> para (text ";Not a comment")
, "Not a comment (semicolon not in the first column)" =: " - ; foo" =?> bulletList [para "; foo"]
] ]
, testGroup "Headers" , testGroup "Headers"
[ "Part" =: [ "Part" =: