🎉 Add telemetry client.

This commit is contained in:
Andrey Antukh 2020-12-28 13:03:12 +01:00 committed by Alonso Torres
parent c99f571296
commit ff6482fa29
5 changed files with 184 additions and 30 deletions

View file

@ -306,10 +306,15 @@
(defmethod ig/init-key ::scheduler
[_ {:keys [executor schedule] :as cfg}]
(let [scheduler (Executors/newScheduledThreadPool (int 1))
cfg (assoc cfg :scheduler scheduler)]
schedule (filter some? schedule)
cfg (assoc cfg
:scheduler scheduler
:schedule schedule)]
(synchronize-schedule cfg)
(run! (partial schedule-task cfg)
(filter some? schedule))
(reify
java.lang.AutoCloseable
(close [_]
@ -339,8 +344,6 @@
(def sql:lock-scheduled-task
"select id from scheduled_task where id=? for update skip locked")
(declare schedule-task)
(defn exception->string
[error]
(with-out-str