diff --git a/backend/resources/log4j2-devenv.xml b/backend/resources/log4j2-devenv.xml
index fe69b81978..b653c60fa4 100644
--- a/backend/resources/log4j2-devenv.xml
+++ b/backend/resources/log4j2-devenv.xml
@@ -32,6 +32,7 @@
+
diff --git a/backend/src/app/rpc/mutations/files.clj b/backend/src/app/rpc/mutations/files.clj
index b93047639a..14d79347a9 100644
--- a/backend/src/app/rpc/mutations/files.clj
+++ b/backend/src/app/rpc/mutations/files.clj
@@ -20,6 +20,8 @@
[app.loggers.audit :as audit]
[app.metrics :as mtx]
[app.msgbus :as mbus]
+ [app.rpc :as-alias rpc]
+ [app.rpc.doc :as-alias doc]
[app.rpc.permissions :as perms]
[app.rpc.queries.files :as files]
[app.rpc.queries.projects :as proj]
@@ -54,6 +56,7 @@
:opt-un [::id ::is-shared ::features ::components-v2]))
(sv/defmethod ::create-file
+ {::doc/added "1.0"}
[{:keys [pool] :as cfg} {:keys [profile-id project-id] :as params}]
(db/with-atomic [conn pool]
(let [team-id (retrieve-team-id conn project-id)]
@@ -112,6 +115,7 @@
(s/keys :req-un [::profile-id ::name ::id]))
(sv/defmethod ::rename-file
+ {::doc/added "1.0"}
[{:keys [pool] :as cfg} {:keys [id profile-id] :as params}]
(db/with-atomic [conn pool]
(files/check-edition-permissions! conn profile-id id)
@@ -135,6 +139,7 @@
(s/keys :req-un [::profile-id ::id ::is-shared]))
(sv/defmethod ::set-file-shared
+ {::doc/added "1.2"}
[{:keys [pool] :as cfg} {:keys [id profile-id is-shared] :as params}]
(db/with-atomic [conn pool]
(files/check-edition-permissions! conn profile-id id)
@@ -161,6 +166,7 @@
(s/keys :req-un [::id ::profile-id]))
(sv/defmethod ::delete-file
+ {::doc/added "1.0"}
[{:keys [pool] :as cfg} {:keys [id profile-id] :as params}]
(db/with-atomic [conn pool]
(files/check-edition-permissions! conn profile-id id)
@@ -339,7 +345,8 @@
FOR KEY SHARE")
(sv/defmethod ::update-file
- {::rsem/queue :update-file}
+ {::rsem/queue :update-file
+ ::doc/added "1.0"}
[{:keys [pool] :as cfg} {:keys [id profile-id components-v2] :as params}]
(db/with-atomic [conn pool]
(db/xact-lock! conn id)
@@ -351,7 +358,8 @@
features (cond-> features
components-v2 (conj "components/v2"))
- file (assoc file :features features)]
+ file (assoc file :features features)
+ tpoint (dt/tpoint)]
(when-not file
(ex/raise :type :not-found
@@ -375,8 +383,15 @@
(with-meta
(update-file (assoc cfg :conn conn)
(assoc params :file file))
- {::audit/props {:project-id (:project-id file)
- :team-id (:team-id file)}})))))
+ {::audit/props
+ {:project-id (:project-id file)
+ :team-id (:team-id file)}
+
+ ::rpc/before-complete
+ (fn []
+ (let [elapsed (tpoint)]
+ (l/trace :hint "update-file" :time (dt/format-duration elapsed))))})))))
+
(defn- take-snapshot?
"Defines the rule when file `data` snapshot should be saved."
@@ -539,6 +554,7 @@
(s/keys :req-un [::changes ::revn ::session-id ::id]))
(sv/defmethod ::update-temp-file
+ {::doc/added "1.7"}
[{:keys [pool] :as cfg} {:keys [profile-id session-id id revn changes] :as params}]
(db/with-atomic [conn pool]
(db/insert! conn :file-change
@@ -556,6 +572,7 @@
(s/keys :req-un [::id ::profile-id]))
(sv/defmethod ::persist-temp-file
+ {::doc/added "1.7"}
[{:keys [pool] :as cfg} {:keys [id profile-id] :as params}]
(db/with-atomic [conn pool]
(files/check-edition-permissions! conn profile-id id)