gered/aging-session
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

update doc comments

Browse source
This commit is contained in:
Gered 2022-01-02 17:21:57 -05:00
parent 1b3a988877
commit 0855450a2b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/aging_session/memory.clj
View file

@ -38,14 +38,14 @@
ttl))) ttl)))
(defn- sweep-session (defn- sweep-session
"Sweep the session and run all session functions." "'Sweep' the session map, removing all entries whose lifetimes have exceeded the given ttl."
[session-map ttl] [session-map ttl]
(->> session-map (->> session-map
(remove #(entry-expired? ttl (val %))) (remove #(entry-expired? ttl (val %)))
(into {}))) (into {})))
(defn- sweep-entry (defn- sweep-entry
"Sweep a single entry." "'Sweep' a single entry, removing it from the session map if its lifetime has exceeded the given ttl."
[session-map ttl key] [session-map ttl key]
(if-let [existing-entry (get session-map key)] (if-let [existing-entry (get session-map key)]
(if-not (entry-expired? ttl existing-entry) (if-not (entry-expired? ttl existing-entry)