fixes historical load
This commit is contained in:
@@ -51,7 +51,8 @@
|
|||||||
(log/info "loading new approach")
|
(log/info "loading new approach")
|
||||||
(let [client (dc/pull (dc/db auto-ap.datomic/conn)
|
(let [client (dc/pull (dc/db auto-ap.datomic/conn)
|
||||||
square/square-read
|
square/square-read
|
||||||
client)]
|
client)
|
||||||
|
days (Long/parseLong days)]
|
||||||
(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)]
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user