🐛 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)
"completed" (handle-task-completion result)
(throw (IllegalArgumentException.
(str "invalid status received: " status))))))
(str "invalid status received: '" status "'"))))))
(run-task-loop [[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)
(db/serialization-error? cause))
(do