diff --git a/backend/src/app/main.clj b/backend/src/app/main.clj index d8d515814..6754365ac 100644 --- a/backend/src/app/main.clj +++ b/backend/src/app/main.clj @@ -411,12 +411,12 @@ ::props (ig/ref :app.setup/props)} [::srepl/urepl ::srepl/server] - {:port (cf/get :urepl-port 6062) - :host (cf/get :urepl-host "localhost")} + {::srepl/port (cf/get :urepl-port 6062) + ::srepl/host (cf/get :urepl-host "localhost")} [::srepl/prepl ::srepl/server] - {:port (cf/get :prepl-port 6063) - :host (cf/get :prepl-host "localhost")} + {::srepl/port (cf/get :prepl-port 6063) + ::srepl/host (cf/get :prepl-host "localhost")} :app.setup/builtin-templates {::http.client/client (ig/ref ::http.client/client)} diff --git a/backend/src/app/srepl.clj b/backend/src/app/srepl.clj index 31177cf7a..fcb802c02 100644 --- a/backend/src/app/srepl.clj +++ b/backend/src/app/srepl.clj @@ -50,15 +50,14 @@ (defmethod ig/pre-init-spec ::server [_] - (s/keys :req [::flag] - :req-un [::port ::host])) + (s/keys :req [::flag ::host ::port])) (defmethod ig/prep-key ::server [[type _] cfg] (assoc cfg ::flag (keyword (str (name type) "-server")))) (defmethod ig/init-key ::server - [[type _] {:keys [::flag port host] :as cfg}] + [[type _] {:keys [::flag ::port ::host] :as cfg}] (when (contains? cf/flags flag) (let [accept (case type ::prepl 'app.srepl/json-repl