diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-19 23:20:32 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-19 23:20:32 -0800 |
| commit | 12c96fe49977d7d9911f069c1ae9b42c4760ea14 (patch) | |
| tree | eecdef61ea8504417952e5cb266cafb70af171b7 /src | |
| parent | 325228cbfe26b8c2e3fa93a08863e8659becca4d (diff) | |
| download | pandoc-12c96fe49977d7d9911f069c1ae9b42c4760ea14.tar.gz | |
Minor comment fixes.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 2 |
1 files changed, 0 insertions, 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 |