From c43a0160c1224e2c893ce2b75e5c5fb409d06683 Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Thu, 21 May 2026 13:47:29 +0200
Subject: [PATCH] :sparkles: Try to repair file after validation error

---
 backend/src/app/rpc/commands/files_update.clj | 29 ++++++++++++++-----
 1 file changed, 22 insertions(+), 7 deletions(-)

diff --git a/backend/src/app/rpc/commands/files_update.clj b/backend/src/app/rpc/commands/files_update.clj
index 52fea1639b..3118852f0f 100644
--- a/backend/src/app/rpc/commands/files_update.clj
+++ b/backend/src/app/rpc/commands/files_update.clj
@@ -12,6 +12,7 @@
    [app.common.features :as cfeat]
    [app.common.files.changes :as cpc]
    [app.common.files.migrations :as fmg]
+   [app.common.files.repair :as cfr]
    [app.common.files.validate :as val]
    [app.common.logging :as l]
    [app.common.schema :as sm]
@@ -424,15 +425,29 @@
       (when (contains? cf/flags :soft-file-schema-validation)
         (soft-validate-file-schema! file))
 
-      (when (and (contains? cf/flags :file-validation)
-                 (not skip-validate))
-        (val/validate-file! file libs))
+      ;; If validation is active we try to validate the file.
+      ;; In case of a validation error we try to repair it first,
+      ;; if it's repaired we continue, otherwise we raise the exception
+      (let [file (if (and (contains? cf/flags :file-validation)
+                          (not skip-validate))
+                   (if-let [errors (d/not-empty? (val/validate-file file libs))]
+                     (do
+                       (l/warn :hint "file integrity errors found, attempting auto-repair"
+                               :file-id (str (:id file))
+                               :errors (count errors))
+                       (let [repair-changes (cfr/repair-file file libs errors)
+                             repaired-file  (update file :data cpc/process-changes repair-changes)]
+                         ;; Validate a second time after reparation.
+                         (val/validate-file! repaired-file libs)
+                         repaired-file))
+                     file)
+                   file)]
 
-      (when (and (contains? cf/flags :file-schema-validation)
-                 (not skip-validate))
-        (val/validate-file-schema! file)))
+        (when (and (contains? cf/flags :file-schema-validation)
+                   (not skip-validate))
+          (val/validate-file-schema! file))
 
-    file))
+        file))))
 
 (defn- take-snapshot?
   "Defines the rule when file `data` snapshot should be saved."