From daafe9eaa15bb58b7150533d3530f08f434d920a Mon Sep 17 00:00:00 2001 From: Bryce Date: Sat, 18 May 2024 10:41:57 -0700 Subject: [PATCH] another fix --- src/clj/auto_ap/jobs/load_historical_sales.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/jobs/load_historical_sales.clj b/src/clj/auto_ap/jobs/load_historical_sales.clj index 37307290..fa5d92da 100644 --- a/src/clj/auto_ap/jobs/load_historical_sales.clj +++ b/src/clj/auto_ap/jobs/load_historical_sales.clj @@ -16,7 +16,7 @@ (let [client (dc/pull (dc/db auto-ap.datomic/conn) square3/square-read client) - days (Long/parseLong days)] + days (cond-> days (string? days) ( #(Long/parseLong %)))] (doseq [square-location (:client/square-locations client) :when (:square-location/client-location square-location)] @@ -35,7 +35,7 @@ (defn load-historical-sales [args] (let [{:keys [days client]} args client (cond-> client - ( string? client) #( Long/parseLong %))] + ( string? client) ( #( Long/parseLong %)))] (historical-load-sales client days))) (defn -main [& _]