diff options
author | Alexander Krotov <ilabdsf@gmail.com> | 2017-06-20 15:48:00 +0300 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-20 14:48:00 +0200 |
commit | 21925284244bb88f927c287c21b48df35234b260 (patch) | |
tree | f7640a56728d2af7d63f67f9bacb60d4ee394d3d /src/Text | |
parent | ea1724e35e5ac008ef1293cb7b2b49595392c38e (diff) | |
download | pandoc-21925284244bb88f927c287c21b48df35234b260.tar.gz |
Muse reader: check that headers start at the first column (#3749)
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index ac19a2382..84121cabe 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -205,6 +205,8 @@ separator = try $ do header :: PandocMonad m => MuseParser m (F Blocks) header = try $ do + st <- stateParserContext <$> getState + getPosition >>= \pos -> guard (st == NullState && sourceColumn pos == 1) level <- liftM length $ many1 $ char '*' guard $ level <= 5 skipSpaces |