urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fixed earn not escaping query string

Browse Source
This commit is contained in:
Anton Dyudin 2014-11-03 00:28:58 -08:00 committed by Anton Dyudin
parent 1dd447001b
commit 9de72b30ca
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/zuse.hoon
View File

@ -2142,10 +2142,12 @@
::
++ body
|= pok=pork ^- tape
?~ q.pok
?~(p.pok ~ ['.' (trip u.p.pok)])
?~ q.pok ~
|-
=+ seg=(trip i.q.pok)
?:(=(~ t.q.pok) seg (weld seg `tape`['/' $(q.pok t.q.pok)]))
?~ t.q.pok
?~(p.pok seg (welp seg '.' (trip u.p.pok)))
(welp seg '/' $(q.pok t.q.pok))
::
++ head
|= har=hart
@ -2171,9 +2173,9 @@
|- ^- tape
?~ kay ~
;: weld
(trip p.i.kay)
(urle (trip p.i.kay))
"="
(trip q.i.kay)
(urle (trip q.i.kay))
?~(t.kay ~ `tape`['&' $(kay t.kay)])
==
--