notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor cleanup. no errors anymore.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-08 15:50:15 -07:00
parent 6c961e17ba
commit f304a544fd
3 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
.clj-kondo/config.edn
View File

@@ -1,6 +1,7 @@
{:linters {:clojure-lsp/unused-public-var {:exclude-when-defined-by #{mount.core/defstate}}
:clojure-lsp/unresolved-var {:exclude [(amazonica.aws.s3 amazonica.aws.sqs)]}
:unresolved-var {:exclude [amazonica.aws.s3]}
:unresolved-var {:exclude [amazonica.aws.s3 amazonica.aws.sqs]}
:unused-public-var {:exclude-when-defined-by #{mount.core/defstate}}
:private-call {:level :off}
:mount/defstate {:level :warning}}

2
.clj-kondo/hooks/defstate.clj
View File

@@ -41,6 +41,6 @@
(api/token-node 'do)
(list*
(api/token-node 'fn*)
(api/token-node 'fn)
(api/vector-node [])
args)))))})))

10
src/clj/user.clj
View File

@@ -12,6 +12,7 @@
[clojure.data.csv :as csv]
[clj-time.coerce :as c]
[clj-time.core :as t]
[clj-time.periodic :as per]
[clojure.java.io :as io]
[clojure.string :as str]
@@ -485,11 +486,11 @@
(println "orders")
(lc/with-context {:source "Historical loading data"}
(doseq [d (clj-time.periodic/periodic-seq (t/plus (t/today) (t/days (- days)))
(doseq [d (per/periodic-seq (t/plus (t/today) (t/days (- days)))
(t/today)
(t/days 1))]
(println d)
(square/upsert client square-location d)))
(square/upsert client square-location d (t/plus d t/days 1))))
(println "refunds")
(square/upsert-refunds client square-location)
@@ -497,7 +498,7 @@
(println "settlements")
(with-redefs [square/lookup-dates (fn lookup-dates []
(->> (clj-time.periodic/periodic-seq (t/plus (t/today) (t/days (- days)))
(->> (per/periodic-seq (t/plus (t/today) (t/days (- days)))
(t/today)
(t/days 2))
(map (fn [d]
@@ -517,7 +518,8 @@
(println "orders")
(lc/with-context {:source "Historical loading data"}
(square/upsert client square-location (c/to-date-time date)))))
(square/upsert client square-location (c/to-date-time date)
(t/plus (c/to-date-time date) (t/days 1))))))
(defn upsert-invoice-amounts [tsv]
(let [data (with-open [reader (io/reader (char-array tsv))]