From 42e70a1589e62bb222b1f270829bec031330e060 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sun, 14 Feb 2010 22:36:53 -0500 Subject: Made mimetypes case-insensitive --- compojure-3.2/src/compojure/http/middleware.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compojure-3.2') diff --git a/compojure-3.2/src/compojure/http/middleware.clj b/compojure-3.2/src/compojure/http/middleware.clj index f9a2dab..7c68bab 100755 --- a/compojure-3.2/src/compojure/http/middleware.clj +++ b/compojure-3.2/src/compojure/http/middleware.clj @@ -114,7 +114,7 @@ (let [default (or (:default options) "text/html")] (if-let [ext (extension (:uri request))] (let [mimetypes (or (:mimetypes options) default-mimetypes)] - (get mimetypes ext default)) + (get mimetypes (.toLowerCase ext) default)) default))) (defn with-mimetypes -- cgit v1.2.3-70-g09d2