Skip to content
Snippets Groups Projects
Commit 10c24ba2 authored by Simon Belak's avatar Simon Belak
Browse files

Change retry criteria

parent 60398e69
No related branches found
No related tags found
No related merge requests found
......@@ -32,10 +32,9 @@
(defn result!
"Blocking version of async/result."
[job-id]
(while-with-timeout (or (not (@job-done? job-id))
(-> job-id
ComputationJob
async/result
(find :result)
nil?)))
(while-with-timeout (not (and (@job-done? job-id)
(-> job-id
ComputationJob
async/result
(find :result)))))
(async/result (ComputationJob job-id)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment