From 3f99b1b626f8bab69f1e81a90ad75636e93ce7e8 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 13 Aug 2025 11:33:50 +0200
Subject: [PATCH] WIP

---
 backend/src/app/srepl/main.clj | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/backend/src/app/srepl/main.clj b/backend/src/app/srepl/main.clj
index e7de3aac1f..5ae8512891 100644
--- a/backend/src/app/srepl/main.clj
+++ b/backend/src/app/srepl/main.clj
@@ -582,14 +582,14 @@
           (loop [total 0]
             (let [result (-> main/system
                              (assoc ::db/rollback rollback?)
-                             (proc-fn opts))
-                  total  (+ total result)
-                  chunks (swap! processed inc)]
-
+                             (proc-fn opts))]
               (l/dbg :hint "chunk processed" :jid jid :total total :chunk result)
-              (when  (and (pos? result)
-                          (< chunks max-chunks))
-                (recur total)))))]
+
+              (let [total  (+ total result)
+                    chunks (swap! processed inc)]
+                (when  (and (pos? result)
+                            (< chunks max-chunks))
+                  (recur total))))))]
 
     (l/dbg :hint "process:start"
            :rollback rollback?