can edit accounts.
This commit is contained in:
11
scratch-sessions/delete_fake_data.clj
Normal file
11
scratch-sessions/delete_fake_data.clj
Normal file
@@ -0,0 +1,11 @@
|
||||
(in-ns 'auto-ap.datomic)
|
||||
(doseq [client (->>
|
||||
(d/query {:query {:find '[?c]
|
||||
:in '[$]
|
||||
:where ['[_ :client/code ?c]]}
|
||||
:args [(d/db (d/connect uri))]})
|
||||
(map first)
|
||||
(filter #(clojure.string/starts-with? % "ANOT" )))]
|
||||
@(d/transact (d/connect uri)
|
||||
[[:db/retractEntity [:client/code client]]])
|
||||
)
|
||||
Reference in New Issue
Block a user