diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 51c61103b..be1fdc5d0 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1059,7 +1059,7 @@ strChar = noneOf (specialChars ++ " \t\n") str :: GenParser Char ParserState Inline str = do a <- strChar - as <- many (strChar <|> (try $ char '_' >>~ lookAhead strChar)) + as <- many (strChar <|> (try $ char '_' >>~ lookAhead alphaNum)) let result = a:as state <- getState let spacesToNbr = map (\c -> if c == ' ' then '\160' else c) |