@@ -225,7 +225,7 @@ parseEmacsDirective :: PandocMonad m => MuseParser m (String, F Inlines)
225225parseEmacsDirective = (,)
226226 <$> parseDirectiveKey
227227 <* spaceChar
228− <*> (trimInlinesF . mconcat <$> manyTill (choice inlineList) eol)
228+ <*> (trimInlinesF . mconcat <$> manyTill inline' eol)
229229
230230parseAmuseDirective :: PandocMonad m => MuseParser m (String, F Inlines)
231231parseAmuseDirective = (,)
@@ -455,7 +455,7 @@ playTag = do
455455verseLine :: PandocMonad m => MuseParser m (F Inlines)
456456verseLine = do
457457 indent <- (B.str <$> many1 ('\160' <$ char ' ')) <|> pure mempty
458− rest <- manyTill (choice inlineList) newline
458+ rest <- manyTill inline' newline
459459 return $ trimInlinesF $ mconcat (pure indent : rest)
460460
461461-- | Parse @\<verse>@ tag.
@@ -546,7 +546,7 @@ lineVerseLine = try $ do
546546 string "> "
547547 indent <- many ('\160' <$ char ' ')
548548 let indentEl = if null indent then mempty else B.str indent
549− rest <- manyTill (choice inlineList) eol
549+ rest <- manyTill inline' eol
550550 return $ trimInlinesF $ mconcat (pure indentEl : rest)
551551
552552blanklineVerseLine :: PandocMonad m => MuseParser m (F Inlines)
@@ -648,7 +648,7 @@ definitionListItemsUntil indent end =
648648 where
649649 continuation = try $ do
650650 pos <- getPosition
651− term <- trimInlinesF . mconcat <$> manyTill (choice inlineList) (try $ string "::")
651+ term <- trimInlinesF . mconcat <$> manyTill inline' (try $ string "::")
652652 (x, (xs, e)) <- descriptionsUntil (sourceColumn pos) (try (optional blankline *> indentWith indent *> continuation) <|> (([],) <$> end))
653653 let xx = (,) <$> term <*> sequence x
654654 return (xx:xs, e)
@@ -753,33 +753,33 @@ tableParseCaption = try $ fmap MuseCaption . trimInlinesF . mconcat
753753
754754-- ** Inline parsers
755755
756−inlineList :: PandocMonad m => [MuseParser m (F Inlines)]
757−inlineList = [ whitespace
758− , br
759− , anchor
760− , footnote
761− , strong
762− , strongTag
763− , emph
764− , emphTag
765− , underlined
766− , superscriptTag
767− , subscriptTag
768− , strikeoutTag
769− , verbatimTag
770− , classTag
771− , nbsp
772− , linkOrImage
773− , code
774− , codeTag
775− , mathTag
776− , inlineLiteralTag
777− , str
778− , symbol
779− ]
756+inline' :: PandocMonad m => MuseParser m (F Inlines)
757+inline' = whitespace
758+ <|> br
759+ <|> anchor
760+ <|> footnote
761+ <|> strong
762+ <|> strongTag
763+ <|> emph
764+ <|> emphTag
765+ <|> underlined
766+ <|> superscriptTag
767+ <|> subscriptTag
768+ <|> strikeoutTag
769+ <|> verbatimTag
770+ <|> classTag
771+ <|> nbsp
772+ <|> linkOrImage
773+ <|> code
774+ <|> codeTag
775+ <|> mathTag
776+ <|> inlineLiteralTag
777+ <|> str
778+ <|> symbol
779+ <?> "inline"
780780
781781inline :: PandocMonad m => MuseParser m (F Inlines)
782−inline = endline <|> choice inlineList <?> "inline"
782+inline = endline <|> inline'
783783
784784-- | Parse a soft break.
785785endline :: PandocMonad m => MuseParser m (F Inlines)