diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-08-16 08:09:20 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-08-16 08:09:20 -0700 |
| commit | abb35d8b0ffa1160dd63a15ec0d5c391da31093f (patch) | |
| tree | a657946bd597ba4aa2019f1e722ed55843453b4f | |
| parent | e37cf4484d38c171d9f7477a8ae9eca9643cc426 (diff) | |
| download | pandoc-abb35d8b0ffa1160dd63a15ec0d5c391da31093f.tar.gz | |
Fix bug in last commit due to removal of take1WhileP.
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
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) |