From b5cc01e9765e37cb8367a00a0b1a6b8af57cc9e5 Mon Sep 17 00:00:00 2001
From: Konstantin Zudov <konstantin@anche.no>
Date: Thu, 29 Jan 2015 22:09:35 +0200
Subject: Do not ommit missing `alt` attribute on `img` tag

Fixes #1131
---
 src/Text/Pandoc/Writers/HTML.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 955c1b208..113965568 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -785,14 +785,11 @@ inlineToHtml opts inline =
                                     then link'
                                     else link' ! A.title (toValue tit)
     (Image txt (s,tit)) | treatAsImage s -> do
-                        let alternate' = stringify txt
                         let attributes = [A.src $ toValue s] ++
                                          (if null tit
                                             then []
                                             else [A.title $ toValue tit]) ++
-                                         if null txt
-                                            then []
-                                            else [A.alt $ toValue alternate']
+                                         [A.alt $ toValue $ stringify txt]
                         let tag = if writerHtml5 opts then H5.img else H.img
                         return $ foldl (!) tag attributes
                         -- note:  null title included, as in Markdown.pl
-- 
cgit v1.2.3