other small performance tweak.
This commit is contained in:
@@ -27,7 +27,7 @@
|
|||||||
(if (> try-count 4) false true))
|
(if (> try-count 4) false true))
|
||||||
|
|
||||||
(defn lookup-dates []
|
(defn lookup-dates []
|
||||||
(->> (periodic/periodic-seq (time/plus (time/now) (time/days -50))
|
(->> (periodic/periodic-seq (time/plus (time/now) (time/days -15))
|
||||||
(time/now)
|
(time/now)
|
||||||
(time/days 5))
|
(time/days 5))
|
||||||
(map (fn [d]
|
(map (fn [d]
|
||||||
|
|||||||
Reference in New Issue
Block a user