diff options
author | Alexander <ilabdsf@gmail.com> | 2017-09-05 19:41:27 +0300 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-09-05 09:41:27 -0700 |
commit | 350c282f205f48c6d0f7a96bf349b585a16fbcf4 (patch) | |
tree | 374ef40b3ca520c80171f903365885ff734f02ac | |
parent | 4170a184797ecacc5e9dc7462eb29c313598489f (diff) |
Muse reader: require at least one space char after * in header (#3895)
-rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 2 | ||||
-rw-r--r-- | test/Tests/Readers/Muse.hs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 1951a47af..63bdfcba7 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -213,7 +213,7 @@ header = try $ do getPosition >>= \pos -> guard (st == NullState && q == NoQuote && sourceColumn pos == 1) level <- liftM length $ many1 $ char '*' guard $ level <= 5 - skipSpaces + spaceChar content <- trimInlinesF . mconcat <$> manyTill inline newline attr <- registerHeader ("", [], []) (runF content defaultParserState) return $ B.headerWith attr level <$> content diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 714736c7f..d9222b1dc 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -224,6 +224,7 @@ tests = , "Subsubsection" =: "***** Fifth level\n" =?> header 5 "Fifth level" + , "Whitespace is required after *" =: "**Not a header\n" =?> para "**Not a header" , "No headers in footnotes" =: T.unlines [ "Foo[1]" , "[1] * Bar" |