@@ -40,7 +40,8 @@ getMimeType f = M.lookup (map toLower $ drop 1 $ takeExtension f) mimeTypes
40 where mimeTypes = M.fromList mimeTypesList
40 where mimeTypes = M.fromList mimeTypesList
42extensionFromMimeType :: String -> Maybe String
42extensionFromMimeType :: String -> Maybe String
43−extensionFromMimeType mimetype = M.lookup mimetype reverseMimeTypes
43+extensionFromMimeType mimetype = M.lookup (takeWhile (/=';') mimetype) reverseMimeTypes
44+ -- note: we just look up the basic mime type, dropping the content-encoding etc.
44 where reverseMimeTypes = M.fromList $ map (\(k,v) -> (v,k)) mimeTypesList
45 where reverseMimeTypes = M.fromList $ map (\(k,v) -> (v,k)) mimeTypesList
46mimeTypesList :: [(String, String)]
47mimeTypesList :: [(String, String)]