0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-11 07:11:32 -05:00

Add minor change to srepl module options

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

View file

@ -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)}

View file

@ -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