diff --git a/src/clj/auto_ap/square/core.clj b/src/clj/auto_ap/square/core.clj index c40e0e73..8ff6f0d2 100644 --- a/src/clj/auto_ap/square/core.clj +++ b/src/clj/auto_ap/square/core.clj @@ -1,9 +1,11 @@ (ns auto-ap.square.core (:require [auto-ap.datomic :refer [conn remove-nils]] [auto-ap.utils :refer [by]] + [auto-ap.time :as atime] [clj-http.client :as client] [clj-time.coerce :as coerce] [clj-time.core :as time] + [clj-time.periodic :as periodic] [clj-time.format :as f] [config.core :refer [env] :as cfg ] [clojure.string :as str] @@ -21,13 +23,13 @@ "Content-Type" "application/json"}) (defn lookup-dates [] - (->> (clj-time.periodic/periodic-seq (time/plus (time/now) (time/days -15)) + (->> (periodic/periodic-seq (time/plus (time/now) (time/days -15)) (time/now) (time/days 5)) (map (fn [d] - [(auto-ap.time/unparse (time/plus d (time/days 1)) auto-ap.time/iso-date) + [(atime/unparse (time/plus d (time/days 1)) atime/iso-date) - (auto-ap.time/unparse (time/plus d (time/days 5)) auto-ap.time/iso-date)])))) + (atime/unparse (time/plus d (time/days 5)) atime/iso-date)])))) (defn locations [client] (->> (client/get "https://connect.squareup.com/v2/locations"