From abb35d8b0ffa1160dd63a15ec0d5c391da31093f Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 16 Aug 2021 08:09:20 -0700 Subject: Fix bug in last commit due to removal of take1WhileP. --- src/Text/Pandoc/Readers/Markdown.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') 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) -- cgit v1.2.3