build error
This commit is contained in:
@@ -18,7 +18,10 @@
|
||||
[datomic.api :as dc])
|
||||
(:import (java.util UUID)))
|
||||
|
||||
(def sysco-name->line
|
||||
(def sysco-name->line (atom nil))
|
||||
(defn get-sysco->line []
|
||||
(when (nil? @sysco-name->line)
|
||||
(reset! @sysco-name->line
|
||||
(with-open [data (io/reader (io/resource "sysco_line_item_mapping.csv"))]
|
||||
(let [data (csv/read-csv data)]
|
||||
(->> data
|
||||
@@ -29,10 +32,12 @@
|
||||
:where [?a :account/numeric-code ?an]]
|
||||
(dc/db conn)
|
||||
(Long/parseLong account-number)))]))
|
||||
(into {})))))
|
||||
(into {}))))))
|
||||
@sysco-name->line)
|
||||
|
||||
(defn get-line-account [item-name]
|
||||
(get sysco-name->line item-name
|
||||
(get (get-sysco->line)
|
||||
item-name
|
||||
(ffirst (dc/q '[:find ?a
|
||||
:in $ ?an
|
||||
:where [?a :account/numeric-code ?an]]
|
||||
|
||||
Reference in New Issue
Block a user