notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

another fix

Browse Source
This commit is contained in:
Bryce
2024-05-18 10:41:57 -07:00
parent 1e797592bf
commit daafe9eaa1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/auto_ap/jobs/load_historical_sales.clj
View File

@@ -16,7 +16,7 @@
(let [client (dc/pull (dc/db auto-ap.datomic/conn) (let [client (dc/pull (dc/db auto-ap.datomic/conn)
square3/square-read square3/square-read
client) client)
days (Long/parseLong days)] days (cond-> days (string? days) ( #(Long/parseLong %)))]
(doseq [square-location (:client/square-locations client) (doseq [square-location (:client/square-locations client)
:when (:square-location/client-location square-location)] :when (:square-location/client-location square-location)]
@@ -35,7 +35,7 @@
(defn load-historical-sales [args] (defn load-historical-sales [args]
(let [{:keys [days client]} args (let [{:keys [days client]} args
client (cond-> client client (cond-> client
( string? client) #( Long/parseLong %))] ( string? client) ( #( Long/parseLong %)))]
(historical-load-sales client days))) (historical-load-sales client days)))
(defn -main [& _] (defn -main [& _]