fix: properties graph incorrectly generating :object-many case

fixes LOG-3162
This commit is contained in:
Gabriel Horner
2024-06-19 09:25:44 -04:00
parent 0bb8db1b0e
commit 3333e95d27

View File

@@ -178,10 +178,13 @@
:properties
(->> [:default :url :checkbox :number :page :date :object]
(mapcat #(cond-> [[% (cond-> {:block/schema {:type %}}
(= % :object)
(= :object %)
(assoc :build/schema-classes [:TestClass]))]]
(db-property-type/property-type-allows-schema-attribute? % :cardinality)
(conj [(keyword (str (name %) "-many")) {:block/schema {:type % :cardinality :many}}])))
(conj [(keyword (str (name %) "-many"))
(cond-> {:block/schema {:type % :cardinality :many}}
(= :object %)
(assoc :build/schema-classes [:TestClass]))])))
(into (mapv #(vector (keyword (str (name %) "-closed"))
{:block/schema {:type %}
:build/closed-values (closed-values-config (keyword (str (name %) "-closed")))})