Satisfy clj-kondo

Author: vemv

src/orchard/info.clj

@@ -63,7 +63,7 @@
 
 (defn clj-meta
   {:added "0.5"}
-  [{:keys [dialect ns sym computed-ns unqualified-sym] :as opts}]
+  [{:keys [dialect ns sym computed-ns unqualified-sym]}]
   {:pre [(= dialect :clj)]}
   (let [ns (or ns computed-ns)
         ns (or (when (some-> ns find-ns)

test/orchard/info_test.clj

@@ -470,6 +470,10 @@
 
 (def some-var nil)
 
+(def workaround
+  "Prevents a clj-kondo warning."
+  replace-first)
+
 (deftest info-undefined-namespace-test
   (let [current-ns (-> ::_ namespace symbol)]
     (are [input expected] (= expected