Should fix builds

src/clj/user.fiddle

@@ -63,9 +63,7 @@
                 (dc/since (dc/db conn) #inst "2023-02-01"))
                (map (fn [[a]]
                       {:db/id a
-                       :account/default-allowance :allowance/allowed})))
-              
-              )
+                       :account/default-allowance :allowance/allowed}))))
 
 
 (dc/q '[:find (pull ?l [*])
@@ -89,7 +87,7 @@
 
 
 ;; Find journal entries that have been divorced from the original entity
-@(dc/transact auto-ap.datomic/conn 
+@(dc/transact auto-ap.datomic/conn
               (->>
                (dc/q '[:find ?l
                        :in $ $$ $$$
@@ -105,7 +103,9 @@
                      (dc/history (dc/db conn)))
                (map (fn [[jl]]
                       [:db/retractEntity jl]))
-               seq))
+               seq)
+              
+              )
 
 
 (entity-history 13194269907490)
@@ -115,3 +115,15 @@
 (dc/tx-range  (dc/log conn)
               13194269907490
               13194269907490)
+(dc/q '[:find ?l
+        :in $ $$ $$$
+        :where [$$ ?l :journal-entry/amount]
+        (not [$ ?l :journal-entry/external-id])
+        [$ ?l :journal-entry/source "invoice"]
+        (not [$ ?l :journal-entry/original-entity])
+        [$ ?l :journal-entry/client ?c]
+        [$ ?c :client/code ?cd]
+        [$$$ ?l :journal-entry/original-entity _ ?tx false]]
+      (dc/db conn)
+      (dc/since (dc/db conn) #inst "2024-02-04")
+      (dc/history (dc/db conn)))