add a log for each transfer transaction

scalar-labs · Nov 23, 2024 · 9372067 · 9372067
1 parent 1949e3e
commit 9372067
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/scalardb/src/scalardb/transfer.clj b/scalardb/src/scalardb/transfer.clj
@@ -1,6 +1,6 @@
 (ns scalardb.transfer
   (:require [clojure.core.reducers :as r]
-            [clojure.tools.logging :refer [warn]]
+            [clojure.tools.logging :refer [info warn]]
             [jepsen
              [client :as client]
              [checker :as checker]
@@ -86,6 +86,7 @@
 
 (defn- tx-transfer
   [tx from to amount]
+  (info "Transferring" amount "from" from "to" to "by tx" (.getId tx))
   (let [fromResult (.get tx (prepare-get from))
         toResult (.get tx (prepare-get to))]
     (->> (calc-new-balance fromResult (- amount))