another fix
This commit is contained in:
@@ -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 [& _]
|
||||
|
||||
Reference in New Issue
Block a user