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

these functions can be private

Browse source
This commit is contained in:
Gered 2022-01-02 18:19:56 -05:00
parent 2724754021
commit 64a62e4a80
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

@ -83,7 +83,7 @@
(swap! session-map dissoc key) (swap! session-map dissoc key)
nil)) nil))
(defn sweeper-thread (defn- sweeper-thread
"Sweeper thread that watches the session and cleans it." "Sweeper thread that watches the session and cleans it."
[{:keys [ttl op-counter op-threshold session-map]} sweep-interval] [{:keys [ttl op-counter op-threshold session-map]} sweep-interval]
(loop [] (loop []
@ -93,7 +93,7 @@
(Thread/sleep sweep-interval) (Thread/sleep sweep-interval)
(recur))) (recur)))
(defn in-thread (defn- in-thread
"Run a function in a thread." "Run a function in a thread."
[f] [f]
(.start (Thread. ^Runnable f))) (.start (Thread. ^Runnable f)))