@@ -378,13 +378,11 @@ separator = try $ pure B.horizontalRule
378378 <* eol
379379
380380headingStart :: PandocMonad m => MuseParser m (String, Int)
381−headingStart = try $ do
382− anchorId <- option "" $ try (parseAnchor <* manyTill spaceChar eol)
383− firstColumn
384− level <- fmap length $ many1 $ char '*'
385− guard $ level <= 5
386− spaceChar
387− return (anchorId, level)
381+headingStart = try $ (,)
382+ <$> option "" (try (parseAnchor <* manyTill spaceChar eol))
383+ <* firstColumn
384+ <*> fmap length (many1 $ char '*')
385+ <* spaceChar
388386
389387-- | Parse a single-line heading.
390388emacsHeading :: PandocMonad m => MuseParser m (F Blocks)