From 8bbe811ad1404e3a3c6a581ff00719d2ad2fcc0a Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Thu, 29 Jan 2015 18:36:00 -0800
Subject: [PATCH 1/3] Curl utility

---
 main/app/curl/core.hook | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 main/app/curl/core.hook

diff --git a/main/app/curl/core.hook b/main/app/curl/core.hook
new file mode 100644
index 000000000..530288193
--- /dev/null
+++ b/main/app/curl/core.hook
@@ -0,0 +1,20 @@
+::  Command-line URL fetch, :curl "http://example.com"
+::
+::::
+  ::
+/+  sh-utils  
+!:
+|_  [hide *]
+++  peer  ,_`.
+++  poke--args
+  %+  gate-bang 
+    |=([a=tape ~] [%e %them ~ ~|([%bad-url a] (scan a auri:epur)) %get ~ ~])
+  ,_`.
+::
+++  pour
+  %+  args-into-gate  .
+  |=  [%e %thou @ mess a=(unit octs)]
+  :-  %tang
+  ?~  a  ~
+  (turn (lore q.u.a) |=(b=cord leaf/(trip b)))
+--

From 4d17234fd6fca9dd4859303bdee7ea2c24a69159 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Fri, 30 Jan 2015 17:48:22 -0800
Subject: [PATCH 2/3] Put out eyre fires

---
 arvo/ames.hoon | 3 +--
 arvo/eyre.hoon | 6 +++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/arvo/ames.hoon b/arvo/ames.hoon
index fd39faecf..53dc70d73 100644
--- a/arvo/ames.hoon
+++ b/arvo/ames.hoon
@@ -1703,8 +1703,7 @@
         :_  ~
         =+  neh=(claw p.p.bon)
         ?>  ?=(^ neh)
-        ?:  ?=(%e ven)
-          ?>  |(=(%pr cak) =(%pc cak))
+        ?:  &(?=(%e ven) ?=(%pc cak)) ::  XX  fix eyre
           :_  [%sick %wart p.bon cak `path`t.t.t.q.q.bon r.bon]
           [[%e `path`t.t.t.q.q.bon] hen]
         =+  ton=[%waft p.bon r.bon]
diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon
index 3032d2365..b23812b89 100644
--- a/arvo/eyre.hoon
+++ b/arvo/eyre.hoon
@@ -919,9 +919,9 @@
                       delete all.pas;
 
                       console.log('redirect')
-                      window.location= // "http://"+seal.who+".urbit.org/gul?"
-                                      "http://0:8445/gul?"
-                                      + $.param(all);
+                      window.location= 
+                        "http://"+seal.who+".urbit.org/gul?"
+                        + $.param(all);
                       return false;
                     }
 

From def54e2321f495c0ad70cd08f6855901baaa2451 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Fri, 30 Jan 2015 18:18:22 -0800
Subject: [PATCH 3/3] Actually put out eyre fires

---
 arvo/ames.hoon | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/arvo/ames.hoon b/arvo/ames.hoon
index 53dc70d73..04ba95c5c 100644
--- a/arvo/ames.hoon
+++ b/arvo/ames.hoon
@@ -1703,9 +1703,13 @@
         :_  ~
         =+  neh=(claw p.p.bon)
         ?>  ?=(^ neh)
-        ?:  &(?=(%e ven) ?=(%pc cak)) ::  XX  fix eyre
-          :_  [%sick %wart p.bon cak `path`t.t.t.q.q.bon r.bon]
-          [[%e `path`t.t.t.q.q.bon] hen]
+        ?:  ?=(%e ven)
+          ?+  cak  !!                 ::  XX  fix eyre
+            %pr  :_  [%sick %waft p.bon r.bon]
+                 [[`path`t.t.t.q.q.bon] hen] 
+            %pc  :_  [%sick %wart p.bon cak `path`t.t.t.q.q.bon r.bon]
+                 [[%e `path`t.t.t.q.q.bon] hen]
+          ==
         =+  ton=[%waft p.bon r.bon]
         ::  ~&  [%milk-waft [[ven `path`t.t.t.q.q.bon] t.neh]]
         :_  [%sick ton]