@@ -785,14 +785,11 @@ inlineToHtml opts inline =
785 then link'
785 then link'
786 else link' ! A.title (toValue tit)
786 else link' ! A.title (toValue tit)
787 (Image txt (s,tit)) | treatAsImage s -> do
787 (Image txt (s,tit)) | treatAsImage s -> do
788− let alternate' = stringify txt
789 let attributes = [A.src $ toValue s] ++
788 let attributes = [A.src $ toValue s] ++
790 (if null tit
789 (if null tit
792 else [A.title $ toValue tit]) ++
791 else [A.title $ toValue tit]) ++
795− else [A.alt $ toValue alternate']
792+ [A.alt $ toValue $ stringify txt]
796 let tag = if writerHtml5 opts then H5.img else H.img
793 let tag = if writerHtml5 opts then H5.img else H.img
797 return $ foldl (!) tag attributes
794 return $ foldl (!) tag attributes
798 -- note: null title included, as in Markdown.pl
795 -- note: null title included, as in Markdown.pl