@@ -678,19 +678,17 @@ url = do
678-- | Parses a list of inlines between start and end delimiters.
678-- | Parses a list of inlines between start and end delimiters.
679inlinesBetween :: (PandocMonad m, Show b) => MWParser m a -> MWParser m b -> MWParser m Inlines
679inlinesBetween :: (PandocMonad m, Show b) => MWParser m a -> MWParser m b -> MWParser m Inlines
680inlinesBetween start end =
680inlinesBetween start end =
681− trimInlines . mconcat <$> try (start >> many1Till inner end)
681+ trimInlines . mconcat <$> try (start >> many1Till inline end)
682− where inner = innerSpace <|> (notFollowedBy' (() <$ whitespace) >> inline)
683− innerSpace = try $ whitespace <* notFollowedBy' end
685emph :: PandocMonad m => MWParser m Inlines
683emph :: PandocMonad m => MWParser m Inlines
686emph = B.emph <$> nested (inlinesBetween start end)
684emph = B.emph <$> nested (inlinesBetween start end)
687− where start = sym "''" >> lookAhead nonspaceChar
685+ where start = sym "''"
688 end = try $ notFollowedBy' (() <$ strong) >> sym "''"
686 end = try $ notFollowedBy' (() <$ strong) >> sym "''"
690strong :: PandocMonad m => MWParser m Inlines
688strong :: PandocMonad m => MWParser m Inlines
691strong = B.strong <$> nested (inlinesBetween start end)
689strong = B.strong <$> nested (inlinesBetween start end)
692− where start = sym "'''" >> lookAhead nonspaceChar
690+ where start = sym "'''"
693− end = try $ sym "'''"
691+ end = sym "'''"
695doubleQuotes :: PandocMonad m => MWParser m Inlines
693doubleQuotes :: PandocMonad m => MWParser m Inlines
696doubleQuotes = do
694doubleQuotes = do