diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-14 10:18:37 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-14 10:18:37 -0800 |
| commit | 09fe08b452c930c42b6c29e87df2f547c0acd1ac (patch) | |
| tree | 55f83f6fae00493c5f514545fded07e9fc96d1b1 /src/Text/Pandoc/MIME.hs | |
| parent | ceb8357b41d0fd20ca4af617c9868f60ee7d370f (diff) | |
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/Pandoc/MIME.hs')
| -rw-r--r-- | src/Text/Pandoc/MIME.hs | 1 |
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") |