From 350c282f205f48c6d0f7a96bf349b585a16fbcf4 Mon Sep 17 00:00:00 2001
From: Alexander <ilabdsf@gmail.com>
Date: Tue, 5 Sep 2017 19:41:27 +0300
Subject: Muse reader: require at least one space char after * in header
 (#3895)

---
 src/Text/Pandoc/Readers/Muse.hs | 2 +-
 test/Tests/Readers/Muse.hs      | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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"
-- 
cgit v1.2.3