Proper header to check Etag is if-none-match.

Author: jarppe

Diff for: src/clj/syksy/web/cache.clj

@@ -9,13 +9,13 @@
 (def vary "vary")
 (def accept-encoding "accept-encoding")
 
-(def if-modified-since "if-modified-since")
+(def if-none-match "if-none-match")
 
 (defn wrap-cache [handler cache-control-value]
   (fn [req]
     (let [response (handler req)]
       (if (and (-> response map?)
-               (-> response :header (get cache-control) nil?))
+               (-> response :headers (get cache-control) nil?))
         (update response :headers
                 assoc cache-control cache-control-value
                       vary accept-encoding)

Diff for: src/clj/syksy/web/index.clj

@@ -47,6 +47,6 @@
     (fn [request]
       (when (and (-> request :request-method (= :get))
                  (-> request :uri (= "/")))
-        (if (-> request :headers (get cache/if-modified-since) (= index-hash))
+        (if (-> request :headers (get cache/if-none-match) (= index-hash))
           not-modified
           index-response)))))

Diff for: src/clj/syksy/web/resources/core.clj

@@ -42,7 +42,7 @@
       (when (-> request :request-method (= :get))
         (when-let [resource-name (-> request :uri resource-name-fn)]
           (when-let [resource-checksum (checksum-fn resource-name)]
-            (if (-> request :headers (get cache/if-modified-since) (= resource-checksum))
+            (if (-> request :headers (get cache/if-none-match) (= resource-checksum))
               not-modified
               (-> resource-name
                   (io/resource)