Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown reader: Further fix to abbrevs.

Browse source
This commit is contained in:
John MacFarlane 2010-12-13 19:34:29 -08:00
parent 7b4d3c77ec
commit 1a4a0d0283
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Markdown.hs
View file

@ -1068,7 +1068,7 @@ str = do
[] -> return $ Str result [] -> return $ Str result
xs -> choice (map (\x -> xs -> choice (map (\x ->
try (string x >> oneOf " \n" >> try (string x >> oneOf " \n" >>
lookAhead letter >> lookAhead alphaNum >>
return (Str $ result ++ spacesToNbr x ++ "\160"))) xs) return (Str $ result ++ spacesToNbr x ++ "\160"))) xs)
<|> (return $ Str result) <|> (return $ Str result)
else return $ Str result else return $ Str result