From 09fe08b452c930c42b6c29e87df2f547c0acd1ac Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Jan 2012 10:18:37 -0800
Subject: 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`.
---
 src/Text/Pandoc/MIME.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Text')

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")
-- 
cgit v1.2.3