diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-11-19 13:09:34 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-11-19 13:09:34 -0800 |
| commit | e290d91c93b265ce7763797a5c995d29fb683c67 (patch) | |
| tree | f0d574ce415cc746e077aa484e754dc78f21ded9 /src/Text/Pandoc/MIME.hs | |
| parent | c226a57eaa7f1e9d4782c7ea3b56e72251a6487a (diff) | |
MIME: In looking up extensions, drop the encoding info.
E.g. for 'image/jpg;base64' we should lookup 'image/jpg'.
Diffstat (limited to 'src/Text/Pandoc/MIME.hs')
| -rw-r--r-- | src/Text/Pandoc/MIME.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/MIME.hs b/src/Text/Pandoc/MIME.hs index d9cb94a33..1f5f6f862 100644 --- a/src/Text/Pandoc/MIME.hs +++ b/src/Text/Pandoc/MIME.hs @@ -40,7 +40,8 @@ getMimeType f = M.lookup (map toLower $ drop 1 $ takeExtension f) mimeTypes where mimeTypes = M.fromList mimeTypesList extensionFromMimeType :: String -> Maybe String -extensionFromMimeType mimetype = M.lookup mimetype reverseMimeTypes +extensionFromMimeType mimetype = M.lookup (takeWhile (/=';') mimetype) reverseMimeTypes + -- note: we just look up the basic mime type, dropping the content-encoding etc. where reverseMimeTypes = M.fromList $ map (\(k,v) -> (v,k)) mimeTypesList mimeTypesList :: [(String, String)] |