Merge pull request #3497 from penpot/niwinz-staging-bugfixes-6

🐛 Fix incorrect implementation on error reporting context collection

backend/src/app/loggers/database.clj

@@ -41,7 +41,7 @@
   (us/assert! ::l/record record)
 
   (let [data (ex-data cause)
-        context (-> context
+        ctx  (-> context
                  (assoc :tenant (cf/get :tenant))
                  (assoc :host (cf/get :host))
                  (assoc :public-uri (cf/get :public-uri))
@@ -49,7 +49,7 @@
                  (assoc :logger/level level)
                  (dissoc :request/params :value :params :data))]
     (merge
-     {:context (-> (into (sorted-map) context)
+     {:context (-> (into (sorted-map) ctx)
                    (pp/pprint-str :width 200 :length 50 :level 10))
       :props   (pp/pprint-str props :width 200 :length 50)
       :hint    (or (ex-message cause) @message)

frontend/src/app/main/data/workspace/fix_broken_shape_links.cljs

@@ -11,13 +11,28 @@
    [potok.core :as ptk]))
 
 (defn- generate-changes
-  [attr {:keys [objects id]}]
+  [attr {:keys [objects id] :as container}]
   (let [base      {:type :fix-obj attr id}
         contains? (partial contains? objects)
         xform     (comp
-                   (remove #(every? contains? (:shapes %)))
-                   (map #(assoc base :id (:id %))))]
-    (sequence xform (vals objects))))
+                   ;; FIXME: Ensure all obj have id field (this is needed
+                   ;; because some bug adds an ephimeral shape with id ZERO,
+                   ;; with a single attr `:shapes` having a vector of ids
+                   ;; pointing to not existing shapes). That happens on
+                   ;; components. THIS IS A WORKAOURD
+                   (map (fn [[id obj]]
+                          (if (some? (:id obj))
+                            obj
+                            (assoc obj :id id))))
+
+                   ;; Remove all valid shapes
+                   (remove (fn [obj]
+                             (every? contains? (:shapes obj))))
+
+                   (map (fn [obj]
+                          (assoc base :id (:id obj)))))]
+
+    (sequence xform objects)))
 
 (defn fix-broken-shapes
   []