Merge pull request #134 from macielti/minor-improvement-datomic-compo…

…nent Minor improvement Datomic (Integrant) component
macielti · Sep 12, 2024 · 6e803f2 · 6e803f2
2 parents a844330 + 6de63f3
commit 6e803f2
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 4 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -5,6 +5,12 @@ of [keepachangelog.com](http://keepachangelog.com/).
 
 ## [Unreleased]
 
+## [29.61.62] - 2024-09-11
+
+### Changed
+
+- Minor improvement on Datomic (Integrant) component.
+
 ## [29.61.61] - 2024-09-11
 
 ### Added
@@ -886,6 +892,8 @@ of [keepachangelog.com](http://keepachangelog.com/).
 
 [Unreleased]: https://github.com/macielti/common-clj/compare/v29.61.61...HEAD
 
+[29.61.62]: https://github.com/macielti/common-clj/compare/v29.61.61...v29.61.62
+
 [29.61.61]: https://github.com/macielti/common-clj/compare/v29.60.61...v29.61.61
 
 [29.60.61]: https://github.com/macielti/common-clj/compare/v29.59.61...v29.60.61

diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject net.clojars.macielti/common-clj "29.61.61"
+(defproject net.clojars.macielti/common-clj "29.61.62"
   :description "Just common Clojure code that I use across projects"
   :url "https://github.com/macielti/common-clj"
   :license {:name "EPL-2.0 OR GPL-2.0-or-later WITH Classpath-exception-2.0"

diff --git a/src/common_clj/integrant_components/datomic.clj b/src/common_clj/integrant_components/datomic.clj
@@ -4,8 +4,7 @@
             [schema.core :as s]
             [taoensso.timbre :as log]
             [diehard.core :as dh])
-  (:import (datomic.db Db)
-           (org.apache.activemq.artemis.api.core ActiveMQNotConnectedException)))
+  (:import (datomic.db Db)))
 
 (s/defn transact-and-lookup-entity! :- {:entity   (s/pred map?)
                                         :db-after Db}
@@ -35,7 +34,7 @@
   (log/info :starting ::datomic)
   (let [datomic-uri (or (-> components :config :datomic-uri)
                         (str "datomic:mem://" (random-uuid)))
-        connection (dh/with-retry {:retry-on    ActiveMQNotConnectedException
+        connection (dh/with-retry {:retry-on    Exception
                                    :max-retries 3}
                      (log/info ::database-created? (d/create-database datomic-uri))
                      (d/connect datomic-uri))]