replaces settlement loading with payout loading.

This commit is contained in:
Bryce
2023-07-25 22:02:36 -07:00
parent 8f5caf9a81
commit 90014fbfcd
3 changed files with 147 additions and 133 deletions

View File

@@ -65,18 +65,7 @@
(println "refunds")
@(square3/upsert-refunds client square-location)
#_(with-redefs [square3/lookup-dates (fn lookup-dates []
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
(time/today)
(time/days 2))
(map (fn [d]
[(atime/unparse (time/plus d (time/days 1)) atime/iso-date)
(atime/unparse (time/plus d (time/days 2)) atime/iso-date)]))))]
@(square3/upsert-settlements client square-location)))))
@(square3/upsert-payouts client square-location (time/plus (time/now) (time/days (- days))) (time/now)))))
(defn load-historical-sales [args]