aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-01-14 10:18:37 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-01-14 10:18:37 -0800
commit09fe08b452c930c42b6c29e87df2f547c0acd1ac (patch)
tree55f83f6fae00493c5f514545fded07e9fc96d1b1 /src/Text
parentceb8357b41d0fd20ca4af617c9868f60ee7d370f (diff)
downloadpandoc-09fe08b452c930c42b6c29e87df2f547c0acd1ac.tar.gz
Added 'layout-cache' to getMimeType.
This ensures that the META-INF/manifest.xml for ODT files will have everything it needs. Fixes a bug using modified ODT files as `--reference-odt`.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/MIME.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/MIME.hs b/src/Text/Pandoc/MIME.hs
index c52a4c475..db9263b4c 100644
--- a/src/Text/Pandoc/MIME.hs
+++ b/src/Text/Pandoc/MIME.hs
@@ -35,6 +35,7 @@ import qualified Data.Map as M
-- | Determine mime type appropriate for file path.
getMimeType :: FilePath -> Maybe String
+getMimeType "layout-cache" = Just "application/binary" -- in ODT
getMimeType f = M.lookup (map toLower $ drop 1 $ takeExtension f) mimeTypes
where mimeTypes = M.fromList -- List borrowed from happstack-server.
[("gz","application/x-gzip")