ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-14 17:41:33 +03:00
Code Issues Packages Projects Releases Wiki Activity

gall: more lighter-than-eyre compatibility

Browse Source
This commit is contained in:
Jared Tobin 2019-07-02 05:13:19 +08:00 committed by Jared Tobin
parent 2c6281c0b4
commit 92fbc80ea6
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
pkg/arvo/sys/vane/gall.hoon
View File

@ -849,6 +849,10 @@
%reap
::
(mo-give %mack p.internal-gift)
::
%http-response
::
!!
==
::
:: +mo-handle-sys-val: inbound validate.
@ -934,16 +938,9 @@
::
%cay
::
?. ?=([%e %sigh *] sign-arvo)
~& [%mo-handle-use-weird sign-arvo]
~& [%mo-handle-use-weird-path path]
mo-state
::
=. app
=/ =cage +>.sign-arvo
(ap-unwrap-take:app %sigh t.t.t.path cage)
::
ap-abet:app
~& [%mo-handle-use-weird sign-arvo]
~& [%mo-handle-use-weird-path path]
mo-state
::
%out
::
@ -1791,7 +1788,7 @@
%poke (ap-move-poke bone vase)
%send (ap-move-send bone vase)
%quit (ap-move-quit bone vase)
%http-response (ap-move-http-response -.q.vax cav)
%http-response (ap-move-http-response bone vase)
==
::
:: +ap-move-quit: give quit move.
@ -1852,7 +1849,7 @@
::
++ ap-move-http-response
|= [sto=bone vax=vase]
^- [(each cove tang) _ap-state]
^- [(each internal-move tang) _ap-state]
::
:: TODO: Magic vase validation. I have no idea how malformed checking
:: works.
@ -1908,8 +1905,8 @@
?. ?& ?=(^ pax)
(levy u.pax (sane %ta))
==
=/ =tang (ap-suck "pass: malformed path")
~& [%bad-path pux]
=/ =tang (ap-tang "pass: malformed path")
~& [%bad-path pax]
[[%.n tang] ap-state]
::
=/ maybe-vane (ap-vain noun)