diff --git a/backend/src/app/srepl/main.clj b/backend/src/app/srepl/main.clj index ef3dd336c3..685adfdf4f 100644 --- a/backend/src/app/srepl/main.clj +++ b/backend/src/app/srepl/main.clj @@ -9,7 +9,24 @@ #_:clj-kondo/ignore (:require [app.common.logging :as l] + [app.common.pprint :as p] + [app.srepl.fixes :as f] [app.srepl.helpers :as h] - [app.srepl.fixes :as f])) + [clojure.pprint :refer [pprint]])) ;; Empty namespace as main entry point for Server REPL + +(defn print-available-tasks + [system] + (let [tasks (:app.worker/registry system)] + (p/pprint (keys tasks) :level 200))) + + +(defn run-task! + ([system name] + (run-task! system name {})) + ([system name params] + (let [tasks (:app.worker/registry system)] + (if-let [task-fn (get tasks name)] + (task-fn params) + (l/warn :hint "no task found" :name name)))))