fix addConnections

This commit is contained in:
2022-09-08 05:09:35 +00:00
parent acb8127e10
commit d2f3dc294c

View File

@@ -137,7 +137,7 @@
(withWritableComponents archive e [conn Connections] (withWritableComponents archive e [conn Connections]
(doFor e2 entriesToConnect (dictSet conn e2.id 1))) (doFor e2 entriesToConnect (dictSet conn e2.id 1)))
(addComponent archive e Connections (for e2 entriesToConnect =>e2.id 1))) (addComponent archive e Connections (for e2 entriesToConnect =>e2.id 1)))
) e)
(function removeConnections [:nat.Archive archive :nat.Entry e :Array<Entry> entriesToRemove] (function removeConnections [:nat.Archive archive :nat.Entry e :Array<Entry> entriesToRemove]
(when (hasComponent e Connections) (when (hasComponent e Connections)