diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-15 12:17:15 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-04-15 12:17:33 +0300 |
| commit | 6be013914513d2dd8ef7f141b1e3fd59cee7d3f7 (patch) | |
| tree | 6e1ac9c5f9e33fb0a4ab7612d9da3e70094e4826 | |
| parent | 34d8ffbcfc33b86766ff7229be4d8a0d1fbffb50 (diff) | |
| download | pandoc-6be013914513d2dd8ef7f141b1e3fd59cee7d3f7.tar.gz | |
Muse reader: require that comment semicolons are in the first column
Fixes #4551
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 1 | ||||
| -rw-r--r-- | test/Tests/Readers/Muse.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 9763652bc..0da8bbdcc 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -348,6 +348,7 @@ blockElements = do -- | Parse a line comment, starting with @;@ in the first column. comment :: PandocMonad m => MuseParser m (F Blocks) comment = try $ do + getPosition >>= \pos -> guard (sourceColumn pos == 1) char ';' optional (spaceChar >> many (noneOf "\n")) eol diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 11eebbdc0..188036a09 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -521,6 +521,7 @@ tests = , "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 (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" [ "Part" =: |