9b0bd4e · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Markdown reader: Added updateStrPos in a couple places where needed.

9b0bd4eJohn MacFarlane8 years ago

src/Text/Pandoc/Readers/Markdown.hs+2−1

@@ -1586,6 +1586,7 @@ symbol = do

1586 <|> try (do lookAhead $ char '\\'

1587 notFollowedBy' (() <$ rawTeXBlock)

1588 char '\\')

1589+ updateLastStrPos

1589 return $ return $ B.str [result]

1590 return $ return $ B.str [result]

1590

1591

1591-- parses inline code, between n `s and n `s

1592-- parses inline code, between n `s and n `s

@@ -1632,7 +1633,7 @@ enclosure c = do

1632 3 -> three c

1633 3 -> three c

1633 2 -> two c mempty

1634 2 -> two c mempty

1634 1 -> one c mempty

1635 1 -> one c mempty

1635− _ -> return (return $ B.str cs)

1636+ _ -> updateLastStrPos >> return (return $ B.str cs)

1636

1637

1637ender :: PandocMonad m => Char -> Int -> MarkdownParser m ()

1638ender :: PandocMonad m => Char -> Int -> MarkdownParser m ()

1638ender c n = try $ do

1639ender c n = try $ do