From f53df88435fe44ff8ef9b8213f33e19200f095ff Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Mon, 5 Dec 2022 09:31:16 -0800 Subject: [PATCH] test --- src/clj/auto_ap/graphql/jobs.clj | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/graphql/jobs.clj b/src/clj/auto_ap/graphql/jobs.clj index 6b8292b3..425b97a0 100644 --- a/src/clj/auto_ap/graphql/jobs.clj +++ b/src/clj/auto_ap/graphql/jobs.clj @@ -96,8 +96,12 @@ (defn request-job [context value _] (assert-admin (:id context)) (if (not (get (currently-running-jobs) (:which value))) - (let [new-job (run-task (str (str/replace (:which value) #"-" "_") "_" (:dd-env env)) - (some-> (:args value) edn/read-string))] + (let [new-job (run-task + (-> (:which value) + (str/replace #"-" "_") + (str/replace #":" "") + (str "_" (:dd-env env))) + (some-> (:args value) edn/read-string))] {:message (str "task " (str new-job) " started.")}) (assert-failure "This job is already running")))