@@ -786,18 +786,14 @@ inlineToHtml opts inline =
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 attributes = [A.src $ toValue s] ++
788 let attributes = [A.src $ toValue s] ++
791− else [A.title $ toValue tit]) ++
789+ [A.title $ toValue tit | not $ null tit] ++
792 [A.alt $ toValue $ stringify txt]
790 [A.alt $ toValue $ stringify txt]
793 let tag = if writerHtml5 opts then H5.img else H.img
791 let tag = if writerHtml5 opts then H5.img else H.img
794 return $ foldl (!) tag attributes
792 return $ foldl (!) tag attributes
795 -- note: null title included, as in Markdown.pl
793 -- note: null title included, as in Markdown.pl
796 (Image _ (s,tit)) -> do
794 (Image _ (s,tit)) -> do
797 let attributes = [A.src $ toValue s] ++
795 let attributes = [A.src $ toValue s] ++
800− else [A.title $ toValue tit])
796+ [A.title $ toValue tit | not $ null tit]
801 return $ foldl (!) H5.embed attributes
797 return $ foldl (!) H5.embed attributes
802 -- note: null title included, as in Markdown.pl
798 -- note: null title included, as in Markdown.pl
803 (Note contents)
799 (Note contents)