Markdown writer: Fixed bug in Image.

URI was getting unescaped twice!
This commit is contained in:
John MacFarlane
2010-12-26 10:23:20 -08:00
parent 87429ef2f2
commit 249aa9e044
+1 -1
View File
@@ -499,7 +499,7 @@ inlineToMarkdown opts (Image alternate (source, tit)) = do
(alternate == [Str source]) -- to prevent autolinks
then [Str "image"]
else alternate
linkPart <- inlineToMarkdown opts (Link txt (unescapeURI source, tit))
linkPart <- inlineToMarkdown opts (Link txt (source, tit))
return $ "!" <> linkPart
inlineToMarkdown _ (Note contents) = do
modify (\st -> st{ stNotes = contents : stNotes st })