diff --git a/app/collections.hoon b/app/collections.hoon index 4995183a0..1064c451f 100644 --- a/app/collections.hoon +++ b/app/collections.hoon @@ -206,6 +206,7 @@ ^- (quip move _this) ::~& reap+[wir =(~ err)] ?~ err + :: XX send message to users inbox [~ this] ?~ wir (mean [leaf+"invalid wire for diff: {(spud wir)}"]~) @@ -225,7 +226,9 @@ [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~ :: %our - [~ this] + ?< ?=(~ t.wir) + :_ this + [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~ == :: :: +quit: @@ -251,7 +254,9 @@ [ost.bol %peer /invites [our.bol %hall] /circle/i/grams]~ :: %our - [~ this] + ?< ?=(~ t.wir) + :_ this + [ost.bol %peer /our/[i.t.wir] [our.bol %hall] /circle/[i.t.wir]/config]~ == :: :: +diff-hall-prize: @@ -550,9 +555,12 @@ :: +poke-noun: debugging stuff :: ++ poke-noun - |= a=@t + |= a=@tas ^- (quip move _this) - ?: =(a 'check all subs') + ?+ a + [~ this] + :: + %check-all-subs ~& 'here are all incoming subs' ~& ^- (list (pair ship path)) %+ turn ~(tap by sup.bol) @@ -561,10 +569,17 @@ [s p] [~ this] :: - ?: =(a 'print state') + %print-state ~& str.sta [~ this] - [~ this] + :: + %rebuild-subs + :_ this + :~ [ost.bol %peer /circles [our.bol %hall] /circles/[(scot %p our.bol)]] + [ost.bol %peer /inbox [our.bol %hall] /circle/inbox/config/grams] + [ost.bol %peer /invites [our.bol %hall] /circle/i/grams] + == + == :: ++ is-dm-circle |= circ=circle:hall