From 9de72b30ca6c252faed1d8b9fe9ab00c7a40b70f Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohaitch@gmail.com>
Date: Mon, 3 Nov 2014 00:28:58 -0800
Subject: [PATCH] Fixed earn not escaping query string

---
 arvo/zuse.hoon | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index 686ed69aaa..2efb7c0494 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -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)])
     ==
   --