don't compress if there's already a Content-Encoding set

clj-commons · Sep 14, 2010 · e9ac1ed · e9ac1ed
1 parent 2f0f1ae
commit e9ac1ed
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/ring/middleware/gzip.clj b/src/ring/middleware/gzip.clj
@@ -14,7 +14,8 @@
 (defn wrap-gzip [handler]
   (fn [req]
     (let [resp (handler req)]
-      (if (string? (resp :body))
+      (if (and (not ((resp :headers) "content-encoding"))
+               (string? (resp :body)))
         (let [accepts (get (req :headers) "accept-encoding" "")
               match (re-find #"(gzip|\*)(;q=((0|1)(.\d+)?))?" accepts)]
           (if (and match (not (contains? #{"0" "0.0" "0.00" "0.000"}