square job

This commit is contained in:
2022-09-16 06:05:55 -07:00
parent 8130f89d91
commit aab0f45fb7

View File

@@ -3,9 +3,15 @@
(:require [auto-ap.square.core :as square]
[auto-ap.utils :refer [heartbeat]]
[mount.core :as mount]
[auto-ap.datomic :refer [conn]]))
[auto-ap.datomic :refer [conn]]
[clojure.tools.logging :as log]
[unilog.context :as lc]))
(defn -main [& _]
(mount/start (mount/only #{#'conn}))
((heartbeat square/upsert-all "square-loading")))
(lc/with-context {:background-job "square-loading"}
(mount/start (mount/only #{#'conn}))
((heartbeat square/upsert-all "square-loading"))
(mount/stop (mount/only #{#'conn}))
(log/info "Stopping Square loading")
(System/exit 0)))