aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 536e502cf..0f2239394 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1700,7 +1700,7 @@ superscript = do
notFollowedBy newline
inline) (char '^')
mmdShortSuperscript = do guardEnabled Ext_short_subsuperscripts
- result <- take1WhileP isAlphaNum
+ result <- T.pack <$> many1 alphaNum
return $ return $ return $ B.str result
subscript :: PandocMonad m => MarkdownParser m (F Inlines)
@@ -1713,7 +1713,7 @@ subscript = do
notFollowedBy newline
inline) (char '~')
mmdShortSubscript = do guardEnabled Ext_short_subsuperscripts
- result <- take1WhileP isAlphaNum
+ result <- T.pack <$> many1 alphaNum
return $ return $ return $ B.str result
whitespace :: PandocMonad m => MarkdownParser m (F Inlines)