fix error handling

Author: refset

src/clj/xt_play/handler.clj

@@ -18,7 +18,8 @@
 
 (s/def ::system-time (s/nilable string?))
 (s/def ::txs string?)
-(s/def ::query (s/nilable string?))
+(s/def ::query (s/or :string (s/nilable string?)
+                     :bool boolean?))
 (s/def ::tx-batches (s/coll-of (s/keys :req-un [::system-time ::txs] :opt-un [::query])))
 (s/def ::tx-type #{:sql-v2 :xtql :sql})
 (s/def ::db-run (s/keys :req-un [::tx-batches ::query]))

src/clj/xt_play/transactions.clj

@@ -177,7 +177,7 @@
                         (let [elapsed-ms (Math/round (/ (- (System/nanoTime) start-time) 1000000.0))]
                           (log/error "Exception while running transaction" (ex-message ex))
                           [{:error {:message (ex-message ex)
-                                    :exception (.getClass ex)
+                                    :exception (.getName (.getClass ex))
                                     :data (ex-data ex)}
                             :timing-ms elapsed-ms}])))))
                 tx-batches))]
@@ -239,7 +239,7 @@
                                            (log/warn "Rolling back transaction")
                                            (xtdb/jdbc-execute! conn ["ROLLBACK"]))
                                          {:error {:message (ex-message ex)
-                                                  :exception (.getClass ex)
+                                                  :exception (.getName (.getClass ex))
                                                   :data (ex-data ex)}}))))
                                  elapsed-ms (Math/round (/ (- (System/nanoTime) start-time) 1000000.0))]
                              (when result