From 12c96fe49977d7d9911f069c1ae9b42c4760ea14 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 19 Jan 2012 23:20:32 -0800
Subject: [PATCH] Minor comment fixes.
---
src/Text/Pandoc/Writers/Docx.hs | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 2661d0a24..1ea881623 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -151,7 +151,6 @@ writeDocx mbRefDocx opts doc@(Pandoc (Meta tit auths _) _) = do
let markersUsed = stMarkersUsed st
let numpath = "word/numbering.xml"
let numEntry = toEntry numpath epochtime $ fromString $ showTopElement' $ mkNumbering markersUsed
- -- TODO add metadata, etc.
let docPropsPath = "docProps/core.xml"
let docProps = mknode "cp:coreProperties"
[("xmlns:cp","http://schemas.openxmlformats.org/package/2006/metadata/core-properties")
@@ -585,7 +584,6 @@ inlineToOpenXML opts (Image alt (src, tit)) = do
(ident,size) <- case M.lookup src imgs of
Just (i,img) -> return (i, imageSize img)
Nothing -> do
- -- TODO check existence download etc.
img <- liftIO $ B.readFile src
let ident' = "image" ++ show (M.size imgs + 1)
let size' = imageSize img