@@ -1103,7 +1103,7 @@ inlineToOpenXML opts (Link _ txt (src,_)) = do
1103 M.insert src i extlinks }
1103 M.insert src i extlinks }
1104 return i
1104 return i
1105 return [ mknode "w:hyperlink" [("r:id",id')] contents ]
1105 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
1107 -- first, check to see if we've already done this image
1107 -- first, check to see if we've already done this image
1108 pageWidth <- gets stPrintWidth
1108 pageWidth <- gets stPrintWidth
1109 imgs <- gets stImages
1109 imgs <- gets stImages
@@ -1154,7 +1154,7 @@ inlineToOpenXML opts (Image attr alt (src, tit)) = do
1154 mknode "wp:inline" []
1154 mknode "wp:inline" []
1155 [ mknode "wp:extent" [("cx",show xemu),("cy",show yemu)] ()
1155 [ mknode "wp:extent" [("cx",show xemu),("cy",show yemu)] ()
1156 , mknode "wp:effectExtent" [("b","0"),("l","0"),("r","0"),("t","0")] ()
1156 , 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")] ()
1158 , graphic ]
1158 , graphic ]
1159 let imgext = case mt >>= extensionFromMimeType of
1159 let imgext = case mt >>= extensionFromMimeType of
1160 Just x -> '.':x
1160 Just x -> '.':x