From b5ffb39a87f1818f2b370d30c46ea5afa47815fa Mon Sep 17 00:00:00 2001
From: Bryce <bryce@integreatconsult.com>
Date: Wed, 24 May 2023 12:58:59 -0700
Subject: [PATCH] fixes account export

---
 src/clj/auto_ap/datomic/clients.clj | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/clj/auto_ap/datomic/clients.clj b/src/clj/auto_ap/datomic/clients.clj
index 52b47bd9..de1bc5b8 100644
--- 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)))