🐛 Fix shared keys init should be by keywords (2) (#8230)

backend/src/app/http/middleware.clj

@@ -305,7 +305,7 @@
     (fn [request]
       (if-let [[key-id key] (some-> (yreq/get-header request "x-shared-key")
                                     (str/split #"\s+" 2))]
-        (let [key-id (str/lower key-id)]
+        (let [key-id (-> key-id str/lower keyword)]
           (if (and (string? key)
                    (contains? keys key-id)
                    (= key (get keys key-id)))

backend/test/backend_tests/http_middleware_test.clj

@@ -86,7 +86,7 @@
 (t/deftest shared-key-auth
   (let [handler (#'app.http.middleware/wrap-shared-key-auth
                  (fn [req] {::yres/status 200})
-                 {"test1" "secret-key"})]
+                 {:test1 "secret-key"})]
 
     (let [response (handler (->DummyRequest {} {}))]
       (t/is (= 403 (::yres/status response))))