diff --git a/backend/src/app/srepl/helpers.clj b/backend/src/app/srepl/helpers.clj index cd5c3f56a..c83bc6cee 100644 --- a/backend/src/app/srepl/helpers.clj +++ b/backend/src/app/srepl/helpers.clj @@ -258,8 +258,10 @@ max-jobs start-at on-file + validate? rollback?] :or {max-jobs 1 + validate? true rollback? true}}] (l/dbg :hint "process:start" @@ -282,10 +284,10 @@ file (binding [*system* system] (on-file file'))] - (when (and (some? file) - (not (identical? file file'))) + (when (and (some? file) (not (identical? file file'))) - (cfv/validate-file-schema! file) + (when validate? + (cfv/validate-file-schema! file)) (let [file (if (contains? (:features file) "fdata/objects-map") (feat.fdata/enable-objects-map file) @@ -300,6 +302,9 @@ (db/update! conn :file {:data (blob/encode (:data file)) + :deleted-at (:deleted-at file) + :created-at (:created-at file) + :modified-at (:modified-at file) :features (db/create-array conn "text" (:features file)) :revn (:revn file)} {:id file-id})))))) @@ -314,7 +319,6 @@ :file-id (str file-id) :elapsed elapsed)))))] - (try (db/tx-run! main/system (fn [{:keys [::db/conn] :as system}]