Maybe expire more than just one stupid session, kk?

immutant · Aug 21, 2014 · 6bdeae2 · 6bdeae2
1 parent cb88500
commit 6bdeae2
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/web/src/immutant/web/internal/ring.clj b/web/src/immutant/web/internal/ring.clj
@@ -32,11 +32,10 @@
 
 (defn session-expirer
   [timeout]
-  (let [d (delay timeout)]
-    (fn [session]
-      (when-not (realized? d)
-        (.setMaxInactiveInterval session @d))
-      session)))
+  (fn [session]
+    (when (not= timeout (.getMaxInactiveInterval session))
+      (.setMaxInactiveInterval session timeout))
+    session))
 
 (def-map-type LazyMap [^java.util.Map m]
   (get [_ k default-value]