From 46de73afbb56d18ff95990d7bacc754b1a0cc66e Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Fri, 3 Feb 2023 20:03:19 -0800 Subject: [PATCH] Minor fix for historical sales --- src/clj/auto_ap/jobs/load_historical_sales.clj | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/clj/auto_ap/jobs/load_historical_sales.clj b/src/clj/auto_ap/jobs/load_historical_sales.clj index 69c31ad5..80aba7f6 100644 --- a/src/clj/auto_ap/jobs/load_historical_sales.clj +++ b/src/clj/auto_ap/jobs/load_historical_sales.clj @@ -5,7 +5,7 @@ [auto-ap.jobs.core :refer [execute]] [amazonica.aws.s3 :as s3] [auto-ap.square.core :as square] - [auto-ap.square.core2 :as square2] + [auto-ap.square.core3 :as square3] [clj-time.periodic :as per] [clj-time.core :as time] [datomic.api :as d] @@ -66,14 +66,14 @@ (time/today) (time/days 1))] (println d) - (square2/upsert client square-location (coerce/to-date-time d) (coerce/to-date-time (time/plus d (time/days 1)))))) + @(square3/upsert client square-location (coerce/to-date-time d) (coerce/to-date-time (time/plus d (time/days 1)))))) (println "refunds") - (square2/upsert-refunds client square-location) + @(square3/upsert-refunds client square-location) (println "settlements") - (with-redefs [square2/lookup-dates (fn lookup-dates [] + (with-redefs [square3/lookup-dates (fn lookup-dates [] (->> (per/periodic-seq (time/plus (time/today) (time/days (- days))) (time/today) (time/days 2)) @@ -82,7 +82,7 @@ (atime/unparse (time/plus d (time/days 2)) atime/iso-date)]))))] - (square2/upsert-settlements client square-location))))) + @(square3/upsert-settlements client square-location))))) (defn load-historical-sales [args]