merged.

src/clj/auto_ap/datomic.clj

@@ -4,12 +4,18 @@
    [clojure.tools.logging :as log]
    [clojure.edn :as edn]
    [config.core :refer [env]]
+<<<<<<< HEAD
    [datomic.client.api :as dc]
    [com.brunobonacci.mulog :as mu]
    [mount.core :as mount]
    [clojure.java.io :as io])
   (:import
    (java.util UUID)))
+=======
+   [datomic.api :as d]
+   [mount.core :as mount]
+   [com.brunobonacci.mulog :as mu]))
+>>>>>>> master
 
 (def uri (:datomic-url env))
 
@@ -639,8 +645,16 @@
      (partition-all 200 txes))))
 
 (defn audit-transact [txes id]
-  (dc/transact conn {:tx-data (conj txes {:db/id      "datomic.tx"
-                                          :audit/user (str (:user/role id) "-" (:user/name id))})}))
+  (try 
+    (dc/transact conn {:tx-data (conj txes {:db/id      "datomic.tx"
+                                            :audit/user (str (:user/role id) "-" (:user/name id))})})
+    (catch Exception e
+      (mu/log ::transaction-error
+              :exception e
+              :level :error
+              :tx txes)
+      (throw e)
+      )))
 
 (defn pull-many [db read ids ]
   (->> (dc/q '[:find (pull ?e r)