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