@@ -1103,7 +1103,7 @@ inlineToOpenXML opts (Link _ txt (src,_)) = do
11031103 M.insert src i extlinks }
11041104 return i
11051105 return [ mknode "w:hyperlink" [("r:id",id')] contents ]
1106−inlineToOpenXML opts (Image attr alt (src, tit)) = do
1106+inlineToOpenXML opts (Image attr alt (src, _)) = do
11071107 -- first, check to see if we've already done this image
11081108 pageWidth <- gets stPrintWidth
11091109 imgs <- gets stImages
@@ -1154,7 +1154,7 @@ inlineToOpenXML opts (Image attr alt (src, tit)) = do
11541154 mknode "wp:inline" []
11551155 [ mknode "wp:extent" [("cx",show xemu),("cy",show yemu)] ()
11561156 , mknode "wp:effectExtent" [("b","0"),("l","0"),("r","0"),("t","0")] ()
1157− , mknode "wp:docPr" [("descr",tit),("id","1"),("name","Picture")] ()
1157+ , mknode "wp:docPr" [("descr",stringify alt),("id","1"),("name","Picture")] ()
11581158 , graphic ]
11591159 let imgext = case mt >>= extensionFromMimeType of
11601160 Just x -> '.':x