disables settlements in historical loads too.
This commit is contained in:
@@ -35,8 +35,7 @@
|
|||||||
(square/upsert-refunds client square-location)
|
(square/upsert-refunds client square-location)
|
||||||
|
|
||||||
|
|
||||||
(println "settlements")
|
#_(with-redefs [square/lookup-dates (fn lookup-dates []
|
||||||
(with-redefs [square/lookup-dates (fn lookup-dates []
|
|
||||||
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
|
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
|
||||||
(time/today)
|
(time/today)
|
||||||
(time/days 2))
|
(time/days 2))
|
||||||
@@ -68,8 +67,7 @@
|
|||||||
@(square3/upsert-refunds client square-location)
|
@(square3/upsert-refunds client square-location)
|
||||||
|
|
||||||
|
|
||||||
(println "settlements")
|
#_(with-redefs [square3/lookup-dates (fn lookup-dates []
|
||||||
(with-redefs [square3/lookup-dates (fn lookup-dates []
|
|
||||||
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
|
(->> (per/periodic-seq (time/plus (time/today) (time/days (- days)))
|
||||||
(time/today)
|
(time/today)
|
||||||
(time/days 2))
|
(time/days 2))
|
||||||
|
|||||||
Reference in New Issue
Block a user