expense account logic
This commit is contained in:
@@ -7,7 +7,8 @@
|
||||
(:import [org.apache.commons.io.input BOMInputStream]))
|
||||
|
||||
(defn add-new-vendors [conn]
|
||||
(let [[header & rows] (-> "vendor-list.csv" (io/resource) io/input-stream (BOMInputStream.) (io/reader) csv/read-csv)
|
||||
[[]]
|
||||
#_(let [[header & rows] (-> "vendor-list.csv" (io/resource) io/input-stream (BOMInputStream.) (io/reader) csv/read-csv)
|
||||
headers (map read-string header)
|
||||
new-vendors [(reduce
|
||||
(fn [rows r]
|
||||
|
||||
Reference in New Issue
Block a user