diff --git a/backend/src/app/loggers/database.clj b/backend/src/app/loggers/database.clj index e2892d13f..bf9e9e3f9 100644 --- a/backend/src/app/loggers/database.clj +++ b/backend/src/app/loggers/database.clj @@ -63,7 +63,7 @@ (ex/format-throwable cause :data? false :explain? false :header? false :summary? false))} (when-let [params (or (:request/params context) (:params context))] - {:params (pp/pprint-str params :length 30 :level 12)}) + {:params (pp/pprint-str params :length 30 :level 13)}) (when-let [value (:value context)] {:value (pp/pprint-str value :length 30 :level 12)}) diff --git a/common/src/app/common/files/changes.cljc b/common/src/app/common/files/changes.cljc index 33a273121..3c097b5d0 100644 --- a/common/src/app/common/files/changes.cljc +++ b/common/src/app/common/files/changes.cljc @@ -418,7 +418,8 @@ (cts/shape? shape-new)) (ex/raise :type :assertion :code :data-validation - :hint "invalid shape found after applying changes")))))] + :hint "invalid shape found after applying changes" + ::sm/explain (cts/explain-shape shape-new))))))] (->> (into #{} (map :page-id) items) (mapcat (fn [page-id] diff --git a/common/src/app/common/types/shape.cljc b/common/src/app/common/types/shape.cljc index a49002948..ff1bf6b56 100644 --- a/common/src/app/common/types/shape.cljc +++ b/common/src/app/common/types/shape.cljc @@ -362,6 +362,9 @@ (def valid-shape? (sm/lazy-validator schema:shape)) +(def explain-shape + (sm/lazy-explainer schema:shape)) + (defn has-images? [{:keys [fills strokes]}] (or (some :fill-image fills)