🐛 Do not process runner result if no result returned

This commit is contained in:
Andrey Antukh
2025-11-04 09:58:55 +01:00
parent eaabe54c4b
commit c214cc1544

View File

@@ -224,11 +224,11 @@
"failed" (handle-task-failure result) "failed" (handle-task-failure result)
"completed" (handle-task-completion result) "completed" (handle-task-completion result)
(throw (IllegalArgumentException. (throw (IllegalArgumentException.
(str "invalid status received: " status)))))) (str "invalid status received: '" status "'"))))))
(run-task-loop [[task-id scheduled-at]] (run-task-loop [[task-id scheduled-at]]
(loop [result (run-task! cfg task-id scheduled-at)] (loop [result (run-task! cfg task-id scheduled-at)]
(when-let [cause (process-result result)] (when-let [cause (some-> result process-result)]
(if (or (db/connection-error? cause) (if (or (db/connection-error? cause)
(db/serialization-error? cause)) (db/serialization-error? cause))
(do (do