aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Writers/OpenDocument.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Text/Pandoc/Writers/OpenDocument.hs')
-rw-r--r--Text/Pandoc/Writers/OpenDocument.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs
index 6b3d65422..cbf15214f 100644
--- a/Text/Pandoc/Writers/OpenDocument.hs
+++ b/Text/Pandoc/Writers/OpenDocument.hs
@@ -383,7 +383,7 @@ inlineToOpenDocument o ils
| TeX s <- ils = preformatted s
| HtmlInline s <- ils = preformatted s
| Link l (s,t) <- ils = mkLink s t <$> inlinesToOpenDocument o l
- | Image l (s,t) <- ils = mkImg s t <$> inlinesToOpenDocument o l
+ | Image _ (s,_) <- ils = return $ mkImg s
| Note l <- ils = mkNote l
| otherwise = return empty
where
@@ -392,7 +392,7 @@ inlineToOpenDocument o ils
, ("xlink:href" , s )
, ("office:name", t )
] . inSpanTags "Definition"
- mkImg s _ l = ($$) l . inTags False "draw:frame" [] $
+ mkImg s = inTags False "draw:frame" [] $
selfClosingTag "draw:image" [ ("xlink:href" , s )
, ("xlink:type" , "simple")
, (" xlink:show" , "embed" )