From 4b4f78b4cc1e3182cf3a38a342c4a47d04588f0c Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 6 Feb 2023 12:25:37 +0100
Subject: [PATCH] :sparkles: Add minor change to srepl module options

Replace unqualified attrs with fully qualified
---
 backend/src/app/main.clj  | 8 ++++----
 backend/src/app/srepl.clj | 5 ++---
 2 files changed, 6 insertions(+), 7 deletions(-)

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