@@ -1455,6 +1455,7 @@ enclosure c = do
1455-- Parse inlines til you hit one c or a sequence of two cs.
1455-- Parse inlines til you hit one c or a sequence of two cs.
1456-- If one c, emit emph and then parse two.
1456-- If one c, emit emph and then parse two.
1457-- If two cs, emit strong and then parse one.
1457-- If two cs, emit strong and then parse one.
1458+-- Otherwise, emit ccc then the results.
1458three :: Char -> MarkdownParser (F Inlines)
1459three :: Char -> MarkdownParser (F Inlines)
1459three c = do
1460three c = do
1460 contents <- mconcat <$> many (notFollowedBy (char c) >> inline)
1461 contents <- mconcat <$> many (notFollowedBy (char c) >> inline)
@@ -1479,7 +1480,7 @@ one c prefix' = do
1479 contents <- mconcat <$> many ( (notFollowedBy (char c) >> inline)
1480 contents <- mconcat <$> many ( (notFollowedBy (char c) >> inline)
1480 <|> try (string [c,c] >>
1481 <|> try (string [c,c] >>
1481 notFollowedBy (char c) >>
1482 notFollowedBy (char c) >>
1482− two c prefix') )
1483+ two c mempty) )
1483 (char c >> return (B.emph <$> (prefix' <> contents)))
1484 (char c >> return (B.emph <$> (prefix' <> contents)))
1484 <|> return (return (B.str [c]) <> (prefix' <> contents))
1485 <|> return (return (B.str [c]) <> (prefix' <> contents))