fixed warnings.

src/clj/auto_ap/parse/csv.clj

@@ -6,7 +6,7 @@
             [clojure.tools.logging :as log]))
 
 (defn determine
-  [[header :as z]]
+  [[header]]
   (log/info "Importing with header" header)
   (let [csv-type (cond (str/includes? (second header) "Customer's PO No.")
                        :mama-lus
@@ -34,15 +34,16 @@
 
 (defmulti parse-csv
   determine
-  :default (fn default [rows]
+  :default #_{:clj-kondo/ignore [:unused-binding]}
+           (fn default [rows]
              nil))
 
 (defn parse-date-fallover [d fmts]
-  (if-let [valid-fmt (->> fmts
+  (when-let [valid-fmt (->> fmts
                           (filter (fn [f]
                                     (try
                                       (u/parse-value :clj-time f d)
-                                      (catch Exception e
+                                      (catch Exception _
                                         nil))
                                     ))
                           (first))]
@@ -96,7 +97,7 @@
   [rows]
   (transduce
    (comp (drop 1)
-         (map (fn [[_ po-number despatch-number invoice-number invoice-date customer value :as row]]
+         (map (fn [[_ po-number _ invoice-number invoice-date customer value :as row]]
                 {:vendor-code "Mama Lu's Foods"
                  :customer-identifier customer
                  :invoice-number (str po-number "-" invoice-number )
@@ -112,7 +113,7 @@
   [rows]
   (transduce
    (comp (drop 1)
-         (map (fn [[ po-number despatch-number invoice-number invoice-date customer value :as row]]
+         (map (fn [[ po-number _ invoice-number invoice-date customer value :as row]]
                 {:vendor-code "Mama Lu's Foods"
                  :customer-identifier customer
                  :invoice-number (str po-number "-" invoice-number )
@@ -128,7 +129,7 @@
   [rows]
   (transduce
    (comp 
-    (filter (fn [[dt _ doc-number name _ status _ _ amount :as row]]
+    (filter (fn [[_ _ _ _ _ status _ _ _ ]]
               (= status "Billed")))
     (map (fn [[dt _ doc-number name _ _ _ _ amount :as row]]
            {:vendor-code "PHILZ COFFEE, INC"
@@ -161,11 +162,12 @@
    []
    (drop 1 rows)))
 
+#_{:clj-kondo/ignore [:unused-binding]}
 (defmethod parse-csv nil
   [rows]
   nil)
 
-(defn parse-file [file filename]
+(defn parse-file [file _]
   (with-open [reader (io/reader file)]
     (let [rows (csv/read-csv reader :separator \,)]
       (parse-csv rows))))