Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-12 07:41:43 -05:00
Code Issues Activity

✨ Add minor change to srepl module options

Browse source 
Replace unqualified attrs with fully qualified
This commit is contained in:
Andrey Antukh 2023-02-06 12:25:37 +01:00
parent 0c48f76911
commit 4b4f78b4cc
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
backend/src/app/main.clj
View file

@ -411,12 +411,12 @@
::props (ig/ref :app.setup/props)} ::props (ig/ref :app.setup/props)}
[::srepl/urepl ::srepl/server] [::srepl/urepl ::srepl/server]
{:port (cf/get :urepl-port 6062) {::srepl/port (cf/get :urepl-port 6062)
:host (cf/get :urepl-host "localhost")} ::srepl/host (cf/get :urepl-host "localhost")}
[::srepl/prepl ::srepl/server] [::srepl/prepl ::srepl/server]
{:port (cf/get :prepl-port 6063) {::srepl/port (cf/get :prepl-port 6063)
:host (cf/get :prepl-host "localhost")} ::srepl/host (cf/get :prepl-host "localhost")}
:app.setup/builtin-templates :app.setup/builtin-templates
{::http.client/client (ig/ref ::http.client/client)} {::http.client/client (ig/ref ::http.client/client)}

5
backend/src/app/srepl.clj
View file

@ -50,15 +50,14 @@
(defmethod ig/pre-init-spec ::server (defmethod ig/pre-init-spec ::server
[_] [_]
(s/keys :req [::flag] (s/keys :req [::flag ::host ::port]))
:req-un [::port ::host]))
(defmethod ig/prep-key ::server (defmethod ig/prep-key ::server
[[type _] cfg] [[type _] cfg]
(assoc cfg ::flag (keyword (str (name type) "-server")))) (assoc cfg ::flag (keyword (str (name type) "-server"))))
(defmethod ig/init-key ::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) (when (contains? cf/flags flag)
(let [accept (case type (let [accept (case type
::prepl 'app.srepl/json-repl ::prepl 'app.srepl/json-repl