Merge pull request #129 from gerdint/master

Log resume status (in parity with other components)
kit-clj · Feb 4, 2024 · fda3612 · fda3612
2 parents 4acfd27 + 19a234c
commit fda3612
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/libs/kit-sql-conman/src/kit/edge/db/sql/conman.clj b/libs/kit-sql-conman/src/kit/edge/db/sql/conman.clj
@@ -1,5 +1,6 @@
 (ns kit.edge.db.sql.conman
  (:require
+ [clojure.tools.logging :as log]
  [conman.core :as conman]
  [integrant.core :as ig]
  [kit.ig-utils :as ig-utils]))
@@ -35,9 +36,11 @@
 
 (defmethod ig/resume-key :db.sql/query-fn
  [k {:keys [filename filenames] :as opts} old-opts old-impl]
- (if (and (= opts old-opts)
- (= (map ig-utils/last-modified (or filenames [filename]))
- (:mtimes (meta old-impl))))
- old-impl
- (do (ig/halt-key! k old-impl)
- (ig/init-key k opts))))
+ (let [check-res (and (= opts old-opts)
+ (= (map ig-utils/last-modified (or filenames [filename]))
+ (:mtimes (meta old-impl))))]
+ (log/info k "resume check. Same?" check-res)
+ (if check-res
+ old-impl
+ (do (ig/halt-key! k old-impl)
+ (ig/init-key k opts)))))