merged.

2019-10-10 20:17:42 -07:00
parent 03e391f24e 8df6fb0279
commit 99e1bf936f
9 changed files with 75 additions and 6 deletions
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -8,6 +8,11 @@
              :where [?e :client/name]]
            (d/db (d/connect uri)))
       (map first)
+       (map (fn [c]
+              (update c :client/location-matches
+                      (fn [lms]
+                        
+                        (map #(assoc % :location-match/match (first (:location-match/matches %))) lms)))))
       (map (fn [c]
              (update c :client/bank-accounts
                      (fn [bas]