fix(rtc): update schema

This commit is contained in:
rcmerci
2023-10-13 21:18:37 +08:00
parent 874c06821f
commit baa3a11b8d
2 changed files with 2 additions and 2 deletions

View File

@@ -72,7 +72,7 @@
(def block-type-schema [:enum "property" "class" "whiteboard" "macros" "object"])
(def block-type-schema [:enum "property" "class" "whiteboard" "object" "hidden"])
(def op-schema
[:multi {:dispatch first :decode/string #(update % 0 keyword)}
[:move

View File

@@ -13,7 +13,7 @@
(fn [m datom]
(let [[_e a _v t _add?] datom]
(if-let [[_e _a _v old-t _old-add?] (get m a)]
(if (< old-t t)
(if (<= old-t t)
(assoc m a datom)
m)
(assoc m a datom))))