better impl on response proxy methods

onionpancakes · Oct 14, 2023 · abc0259 · abc0259
1 parent 68c2ebb
commit abc0259
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/dev/onionpancakes/hop/response.clj b/src/dev/onionpancakes/hop/response.clj
@@ -18,8 +18,10 @@
   (containsKey [this k]
     (some? (.get this k)))
   (containsValue [this value]
-    (-> (into #{} (keep #(.get this %)) response-proxy-keys)
-        (contains? value)))
+    (->> response-proxy-keys
+         (keep (comp #{value} #(.get this %)))
+         (first)
+         (some?)))
   (entrySet [this]
     (let [create-map-entry #(when-some [value (.get this %)]
                               (clojure.lang.MapEntry. % value))]
@@ -66,7 +68,7 @@
   (remove [this k]
     (throw (UnsupportedOperationException.)))
   (size [this]
-    (count (filter #(.containsKey this %) response-proxy-keys)))
+    (count (keep #(.get this %) response-proxy-keys)))
   (values [this]
     (into [] (keep #(.get this %)) response-proxy-keys)))