🐛 Allow debug load file with random uuid

2026-02-14 23:52:56 +00:00 · 2022-05-25 09:52:32 +02:00
parent 02427285ef
commit ef37abcbbd
1 changed files with 4 additions and 1 deletions
--- a/backend/src/app/http/debug.clj
+++ b/backend/src/app/http/debug.clj
@@ -100,7 +100,10 @@

    (if (and data project-id)
      (let [fname (str "imported-file-" (dt/now))
-            file-id (uuid/uuid (-> params :file :filename))
+            file-id (try
+                      (uuid/uuid (-> params :file :filename))
+                      (catch Exception err
+                        (uuid/next)))
            file (db/exec-one! pool (sql/select :file {:id file-id}))]
        (if file
          (db/update! pool :file