aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2013-01-17 11:40:14 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2013-01-17 11:40:14 -0800
commit820a9143e76d86f8a9812c29e7c51a1124c75548 (patch)
tree7ad2bc50fa4b1ed8997b0644b30c136a45b088f5 /src/Text/Pandoc
parent054283d12f1e640140e72005d85a3617681fba8c (diff)
downloadpandoc-820a9143e76d86f8a9812c29e7c51a1124c75548.tar.gz
MIME: Support vs and fs as text/plain.
These are used in revealjs css.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/MIME.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/MIME.hs b/src/Text/Pandoc/MIME.hs
index 74f68deaf..eb54bd48d 100644
--- a/src/Text/Pandoc/MIME.hs
+++ b/src/Text/Pandoc/MIME.hs
@@ -156,6 +156,7 @@ getMimeType f = M.lookup (map toLower $ drop 1 $ takeExtension f) mimeTypes
,("fm","application/x-maker")
,("frame","application/x-maker")
,("frm","application/x-maker")
+ ,("fs","text/plain")
,("gal","chemical/x-gaussian-log")
,("gam","chemical/x-gamess-input")
,("gamin","chemical/x-gamess-input")
@@ -443,6 +444,7 @@ getMimeType f = M.lookup (map toLower $ drop 1 $ takeExtension f) mimeTypes
,("vms","chemical/x-vamas-iso14976")
,("vrm","x-world/x-vrml")
,("vrml","model/vrml")
+ ,("vs","text/plain")
,("vsd","application/vnd.visio")
,("wad","application/x-doom")
,("wav","audio/x-wav")