fixes account export

2023-05-24 12:58:59 -07:00
parent d6b3048ff0
commit b5ffb39a87
1 changed files with 4 additions and 4 deletions
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -100,10 +100,10 @@

 (defn code->id [code]
  (->> 
-    (dc/q (-> {:find  ['?e]
-               :in    ['$ '?code]
-               :where [['?e :client/code '?code ]]}
-              (dc/db conn) code))
+   (dc/q '[:find  ?e
+          :in    $ ?code
+          :where [?e :client/code ?code]]
+         (dc/db conn) code)
   (first)
   (first)))