ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-24 10:33:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

drum: move +se-view call into +se-abet

Browse Source 
We practically always do se-abet:se-view anyway.
This commit is contained in:
fang 2022-02-28 16:27:29 -06:00
parent bb11c74278
commit bf97b8da38
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/lib/hood/drum.hoon
View File

@ -143,7 +143,7 @@
::
++ 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)
@ -154,7 +154,7 @@
(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
@ -163,7 +163,7 @@
::
++ poke-dill-belt :: terminal event
|= bet=dill-belt:dill
=< se-abet =< se-view
=< se-abet
(se-belt bet)
::
++ poke-dill-blit :: terminal output
@ -172,12 +172,12 @@
::
++ 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
@ -201,7 +201,7 @@
::
++ 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)
@ -233,7 +233,7 @@
::
++ reap-phat :: ack connect
|= [way=wire saw=(unit tang)]
=< se-abet =< se-view
=< se-abet
=^ gyl this (open way)
?~ saw
(se-join gyl)
@ -244,7 +244,7 @@
::
++ take-coup-phat :: ack poke
|= [way=wire saw=(unit tang)]
=< se-abet =< se-view
=< se-abet
?~ saw +>
=^ gyl this (open way)
?: (se-aint gyl) +>.$
@ -269,7 +269,7 @@
::
++ quit-phat ::
|= way=wire
=< se-abet =< se-view
=< se-abet
=^ gyl this (open way)
~& [%drum-quit src.hid gyl]
(se-drop %| gyl)
@ -278,7 +278,7 @@
:: :: ::
++ 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)