aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2010-12-13 19:34:29 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2010-12-13 20:05:50 -0800
commit1a4a0d0283ef915d0e10fcb24027ff8bc93154e5 (patch)
tree59e82f9cdd010036acbfa8615d6546f44b3d4f88 /src/Text/Pandoc/Readers
parent7b4d3c77ec6d38cd1bbf0b8036a0a8413b5a5443 (diff)
downloadpandoc-1a4a0d0283ef915d0e10fcb24027ff8bc93154e5.tar.gz
Markdown reader: Further fix to abbrevs.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 65b03ab1f..5994f2ef8 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1068,7 +1068,7 @@ str = do
[] -> return $ Str result
xs -> choice (map (\x ->
try (string x >> oneOf " \n" >>
- lookAhead letter >>
+ lookAhead alphaNum >>
return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
<|> (return $ Str result)
else return $ Str result