notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

test

Browse Source
This commit is contained in:
Bryce Covert
2022-12-05 09:31:16 -08:00
parent 328b9db323
commit f53df88435
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/graphql/jobs.clj
View File

@@ -96,8 +96,12 @@
(defn request-job [context value _] (defn request-job [context value _]
(assert-admin (:id context)) (assert-admin (:id context))
(if (not (get (currently-running-jobs) (:which value))) (if (not (get (currently-running-jobs) (:which value)))
(let [new-job (run-task (str (str/replace (:which value) #"-" "_") "_" (:dd-env env)) (let [new-job (run-task
(some-> (:args value) edn/read-string))] (-> (:which value)
(str/replace #"-" "_")
(str/replace #":" "")
(str "_" (:dd-env env)))
(some-> (:args value) edn/read-string))]
{:message (str "task " (str new-job) " started.")}) {:message (str "task " (str new-job) " started.")})
(assert-failure "This job is already running"))) (assert-failure "This job is already running")))