small tweak.

This commit is contained in:
2023-09-28 23:33:38 -07:00
parent 64d8f0cdf9
commit 5dab829db3

View File

@@ -9,7 +9,6 @@
merge-query
pull-many
query2]]
[auto-ap.datomic.reports :as r]
[auto-ap.graphql.utils :refer [assert-can-see-client is-admin?]]
[auto-ap.ssr-routes :as ssr-routes]
[auto-ap.ssr.components :as com]
@@ -121,7 +120,7 @@
:where [?i :report/key ?k]]
(dc/db conn)
(some-> (get form-params "id") not-empty Long/parseLong)))
report (dc/pull (dc/db conn) r/default-read id-to-delete)]
report (dc/pull (dc/db conn) default-read id-to-delete)]
(assert-can-see-client identity (:report/client report))
(when id-to-delete
(s3/delete-object :bucket-name (:data-bucket env)