🐛 Fix raw data export import on debug interface

This commit is contained in:
Andrey Antukh 2024-01-31 16:38:52 +01:00
parent 5e4e706033
commit e216b10716

View file

@ -100,11 +100,11 @@
(let [profile (profile/get-profile pool profile-id) (let [profile (profile/get-profile pool profile-id)
project-id (:default-project-id profile)] project-id (:default-project-id profile)]
(db/run! pool (fn [{:keys [::db/conn]}] (db/run! pool (fn [{:keys [::db/conn] :as cfg}]
(create-file conn {:id file-id (create-file cfg {:id file-id
:name (str "Cloned file: " filename) :name (str "Cloned file: " filename)
:project-id project-id :project-id project-id
:profile-id profile-id}) :profile-id profile-id})
(db/update! conn :file (db/update! conn :file
{:data data} {:data data}
{:id file-id}) {:id file-id})
@ -141,11 +141,11 @@
{::rres/status 200 {::rres/status 200
::rres/body "OK UPDATED"}) ::rres/body "OK UPDATED"})
(db/run! pool (fn [{:keys [::db/conn]}] (db/run! pool (fn [{:keys [::db/conn] :as cfg}]
(create-file conn {:id file-id (create-file cfg {:id file-id
:name fname :name fname
:project-id project-id :project-id project-id
:profile-id profile-id}) :profile-id profile-id})
(db/update! conn :file (db/update! conn :file
{:data data} {:data data}
{:id file-id}) {:id file-id})