drum: fix +on-load resubscribes

This commit is contained in:
Ted Blackman 2020-06-18 00:58:47 -04:00
parent 3914c0c0dd
commit f2ee0a1380

View File

@ -207,19 +207,22 @@
|= [hood-version=?(%1 %2 %3 %4 %5 %6 %7) old=any-state] |= [hood-version=?(%1 %2 %3 %4 %5 %6 %7) old=any-state]
=< se-abet =< se-view =< se-abet =< se-view
=. sat old =. sat old
=? ..on-load (lte hood-version %4) =. dev (~(gut by bin) ost *source)
=< (se-born | %home %goad) ?: (gth hood-version %4)
=< (se-born | %home %metadata-store) ..on-load
=< (se-born | %home %metadata-hook) ~> %slog.0^leaf+"drum: starting os1 agents"
=< (se-born | %home %contact-store) => (se-born | %home %s3-store)
=< (se-born | %home %contact-hook) => (se-born | %home %link-view)
=< (se-born | %home %contact-view) => (se-born | %home %link-listen-hook)
=< (se-born | %home %link-store) => (se-born | %home %link-store)
=< (se-born | %home %link-proxy-hook) => (se-born | %home %link-proxy-hook)
=< (se-born | %home %link-listen-hook) => (se-born | %home %contact-view)
=< (se-born | %home %link-view) => (se-born | %home %contact-hook)
(se-born | %home %s3-store) => (se-born | %home %contact-store)
:: => (se-born | %home %metadata-hook)
=> (se-born | %home %metadata-store)
=> (se-born | %home %goad)
~> %slog.0^leaf+"drum: resubscribing to %dojo and %chat-cli"
=> (se-drop:(se-pull our.hid %dojo) | our.hid %dojo) => (se-drop:(se-pull our.hid %dojo) | our.hid %dojo)
(se-drop:(se-pull our.hid %chat-cli) | our.hid %chat-cli) (se-drop:(se-pull our.hid %chat-cli) | our.hid %chat-cli)
:: ::