Improve internal state validation on db module

This commit is contained in:
Andrey Antukh 2023-02-02 13:13:55 +01:00
parent 071ecca875
commit 1325e46192
5 changed files with 78 additions and 80 deletions

View file

@ -50,14 +50,16 @@
:cause cause))))
instance-id)))
(s/def ::main/key ::us/string)
(s/def ::main/props
(s/map-of ::us/keyword some?))
(defmethod ig/pre-init-spec ::props [_]
(s/keys :req-un [::db/pool]))
(s/keys :req [::db/pool]
:opt [::main/key]))
(defmethod ig/init-key ::props
[_ {:keys [pool key] :as cfg}]
[_ {:keys [::db/pool ::main/key] :as cfg}]
(db/with-atomic [conn pool]
(db/xact-lock! conn 0)
(when-not key