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

garden spider: (testing) correctly validate

Browse Source 
just need to properly store the desk in `serving:spider` now.
This commit is contained in:
ryjm 2021-09-27 10:34:41 -04:00
parent 3fd6722f90
commit c8cf0bb98d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkg/base-dev/lib/strand.hoon
View File

@ -152,14 +152,16 @@
^- [[(list card) =eval-result] _eval-form]
=* take-loop $
=/ validated-input=^strand-input
=. in.strand-input
=/ pox
%+ ^bind
in.strand-input
|= in=input
?. ?=(%sign -.in) in
?. ?=(%fact sign-arvo.in) in
~& input+-.in
?. ?=(%agent -.in) ~& sign+-.in in
?. ?=(%fact -.sign.in) ~& sign+-.sign.in in
:: TODO less shit
(validate-mark q.cage.sign-arvo.in p.cage.sign-arvo.in q.byk.bowl.strand-input)
(validate-mark q.cage.sign.in p.cage.sign.in q.byk.bowl.strand-input bowl.strand-input)
~& > pox+~
strand-input
:: run the stranad callback
::