Muse reader: require at least one space char after * in header (#3895)
commit350c282f205f48c6d0f7a96bf349b585a16fbcf4
authorAlexander <ilabdsf@gmail.com>
dateTue 5 Sep 2017, 19:41 (9 years ago)
parent4170a18
src/Text/Pandoc/Readers/Muse.hs+1−1
@@ -213,7 +213,7 @@ header = try $ do
213213 getPosition >>= \pos -> guard (st == NullState && q == NoQuote && sourceColumn pos == 1)
214214 level <- liftM length $ many1 $ char '*'
215215 guard $ level <= 5
216− skipSpaces
216+ spaceChar
217217 content <- trimInlinesF . mconcat <$> manyTill inline newline
218218 attr <- registerHeader ("", [], []) (runF content defaultParserState)
219219 return $ B.headerWith attr level <$> content
test/Tests/Readers/Muse.hs+1
@@ -224,6 +224,7 @@ tests =
224224 , "Subsubsection" =:
225225 "***** Fifth level\n" =?>
226226 header 5 "Fifth level"
227+ , "Whitespace is required after *" =: "**Not a header\n" =?> para "**Not a header"
227228 , "No headers in footnotes" =:
228229 T.unlines [ "Foo[1]"
229230 , "[1] * Bar"