Fix kondo reported warnings

src/cljc/sixsq/nuvla/client/async.cljc

@@ -5,8 +5,8 @@
   (:refer-clojure :exclude [get])
   #?(:cljs (:require-macros [cljs.core.async.macros :refer [go]]))
   (:require
-    [clojure.core.async :refer #?(:clj  [chan >! <! go]
-                                  :cljs [chan >! <!])]
+    [clojure.core.async :refer #?(:clj  [<! go]
+                                  :cljs [<!])]
     [sixsq.nuvla.client.authn :as authn]
     [sixsq.nuvla.client.api :as api]
     [sixsq.nuvla.client.impl.async :as cimi-impl]

src/cljc/sixsq/nuvla/client/impl/async.cljc

@@ -16,7 +16,7 @@
   (:require
     [cemerick.url :as url]
     [clojure.core.async :refer #?(:clj  [chan <! go]
-                                  :cljs [chan <! >!])]
+                                  :cljs [chan <!])]
     [sixsq.nuvla.client.impl.utils.cimi :as u]
     [sixsq.nuvla.client.impl.utils.common :as cu]
     [sixsq.nuvla.client.impl.utils.error :as e]
@@ -135,11 +135,11 @@
   "Reads the resource identified by the URL or resource id. Returns the
    resource as an edn data structure in a channel."
   [{:keys [token cep] :as _state} url-or-id options]
-  (let [url (cu/ensure-url (:base-uri cep) url-or-id)]
-    (let [opts (-> (cu/req-opts token)
-                   (merge options)
-                   assoc-chan)]
-      (http/get url opts))))
+  (let [url (cu/ensure-url (:base-uri cep) url-or-id)
+        opts (-> (cu/req-opts token)
+                 (merge options)
+                 assoc-chan)]
+    (http/get url opts)))
 
 
 (defn get-sse

src/cljc/sixsq/nuvla/client/impl/utils/cimi.cljc

@@ -61,7 +61,7 @@
   "This extracts the HTTP response body (rendered as keywordized EDN) and the
    value of the set-cookie header and returns a tuple with the two values in
    that order."
-  [{:keys [body] {:keys [set-cookie]} :headers :as response}]
+  [{:keys [body] {:keys [set-cookie]} :headers :as _response}]
   [(json/json->edn body) set-cookie])
 
 
@@ -111,7 +111,7 @@
   "Extracts the absolute URL for the named collection from the cloud entry
    point. The collection name can be provided either as a string or a keyword
    (preferred). Returns nil if the collection does not exist."
-  [{:keys [base-uri collections] :as cep} collection-name]
+  [{:keys [base-uri collections] :as _cep} collection-name]
   (when (and base-uri collection-name)
     (let [collection (keyword collection-name)]
       (some->> collections
@@ -124,7 +124,7 @@
   "Verifies that the value of `collection-url` is the URL for one of the
    collections defined in the cloud entry point. If it is, then the URL is
    returned; if not, then nil is returned."
-  [{:keys [base-uri collections] :as cep} collection-url]
+  [{:keys [base-uri collections] :as _cep} collection-url]
   (when (and base-uri collection-url)
     (let [collection-urls-set (->> collections
                                    vals

src/cljc/sixsq/nuvla/client/impl/utils/http_async.cljc

@@ -47,5 +47,5 @@
   (request-async! :delete url req))
 
 (defn sse
-  [url & [{:keys [options] :as opts}]]
+  [url & [opts]]
   (request-event-source! url opts))