drum: move +se-view call into +se-abet
We practically always do se-abet:se-view anyway.
::
++ diff-sole-effect-phat :: app event
|= [way=wire fec=sole-effect]
- =< se-abet =< se-view
+ =< se-abet
=^ gyl this (open way)
?: (se-aint gyl) +>.$
(se-diff gyl fec)
(prep i.t.pax)
~| [%drum-unauthorized our+our.hid src+src.hid] :: ourself
?> (team:title our.hid src.hid) :: or our own moon
- =< se-abet =< se-view
+ =< se-abet
(se-text "[{<src.hid>}, driving {<our.hid>}]")
::
++ poke-dill
::
++ poke-dill-belt :: terminal event
|= bet=dill-belt:dill
- =< se-abet =< se-view
+ =< se-abet
(se-belt bet)
::
++ poke-dill-blit :: terminal output
::
++ poke-link :: connect app
|= gyl=gill:gall
- =< se-abet =< se-view
+ =< se-abet
(se-link gyl)
::
++ poke-unlink :: disconnect app
|= gyl=gill:gall
- =< se-abet =< se-view
+ =< se-abet
(se-drop:(se-pull gyl) & gyl)
::
++ poke-exit :: shutdown
::
++ on-load
|= [hood-version=@ud old=any-state]
- =< se-abet =< se-view
+ =< se-abet
=? old ?=(%2 -.old) [%4 [eel bin]:old]
=? old ?=(%3 -.old) [%4 [eel bin]:old]
=? old ?=(%4 -.old)
::
++ reap-phat :: ack connect
|= [way=wire saw=(unit tang)]
- =< se-abet =< se-view
+ =< se-abet
=^ gyl this (open way)
?~ saw
(se-join gyl)
::
++ take-coup-phat :: ack poke
|= [way=wire saw=(unit tang)]
- =< se-abet =< se-view
+ =< se-abet
?~ saw +>
=^ gyl this (open way)
?: (se-aint gyl) +>.$
::
++ quit-phat ::
|= way=wire
- =< se-abet =< se-view
+ =< se-abet
=^ gyl this (open way)
~& [%drum-quit src.hid gyl]
(se-drop %| gyl)
:: :: ::
++ se-abet :: resolve
^- (quip card:agent:gall state)
- =. . se-subze:se-adze
+ =. . se-view:se-subze:se-adze
:_ sat(bin (~(put by bin) ses dev))
^- (list card:agent:gall)
?~ biz (flop moz)
