Markdown reader: Further fix to abbrevs.

This commit is contained in:
John MacFarlane 2010-12-13 19:34:29 -08:00
parent 7b4d3c77ec
commit 1a4a0d0283

View file

@ -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