Merge pull request #988 from urbit/app-hiss-user

corrects %hiss http-request user in :acme and :dns apps

app/acme.hoon

@@ -140,7 +140,7 @@
 ::
 +=  card
   $%  [%flog wire flog:dill]
-      [%hiss wire [~ ~] %httr %hiss hiss:eyre]
+      [%hiss wire ~ %httr %hiss hiss:eyre]
       [%rule wire %cert (unit [wain wain])]
       [%wait wire @da]
       [%well wire path (unit mime)]
@@ -340,12 +340,12 @@
 ++  abet
   ^-  (quip move _this)
   [(flop mov) this(mov ~)]
-::  +request: generic http request
+::  +request: unauthenticated http request
 ::
 ++  request
   |=  [wir=wire req=hiss]
   ^-  card
-  [%hiss wir [~ ~] %httr %hiss req]
+  [%hiss wir ~ %httr %hiss req]
 ::  +signed-request: JWS JSON POST
 ::
 ++  signed-request
@@ -1228,4 +1228,3 @@
   ::
   ?.(=(act *acct) this init)
 --
-

app/dns.hoon

@@ -10,7 +10,7 @@
       [%hall-action %phrase audience:hall (list speech:hall)]
   ==
 +$  card
-  $%  [%hiss wire [~ ~] %httr %hiss hiss:eyre]
+  $%  [%hiss wire (unit ~) %httr %hiss hiss:eyre]
       [%poke wire dock poke]
       [%rule wire %turf %put turf]
       [%wait wire @da]
@@ -416,12 +416,6 @@
 ::  +this: is sparta
 ::
 ++  this  .
-:: +request: generic http request
-::
-++  request
-  |=  [=wire =hiss:eyre]
-  ^-  card
-  [%hiss wire [~ ~] %httr %hiss hiss]
 ::  +notify: send :hall notification
 ::
 ++  notify
@@ -626,7 +620,12 @@
     |=  car=card
     ^+  this
     this(moz [[ost.bow car] moz])
-
+  :: +request: authenticated http request
+  ::
+  ++  request
+    |=  [=wire =hiss:eyre]
+    ^-  card
+    [%hiss wire [~ ~] %httr %hiss hiss]
   ::  +http-wire: build a wire for a |tell request
   ::
   ++  http-wire
@@ -860,6 +859,12 @@
     |=  car=card
     ^+  this
     this(moz [[ost.bow car] moz])
+  :: +request: unauthenticated http request
+  ::
+  ++  request
+    |=  [=wire =hiss:eyre]
+    ^-  card
+    [%hiss wire ~ %httr %hiss hiss]
   ::  +http-wire: build a wire for a |tell request
   ::
   ++  http-wire

tests/app/acme.hoon

@@ -44,6 +44,6 @@
     =-  (need (de-purl:html -))
     'https://acme-staging-v02.api.letsencrypt.org/directory'
   %+  expect-eq
-      !>  ~[[ost.bow.app [%hiss /acme/directory/~zod [~ ~] %httr %hiss url %get ~ ~]]]
+      !>  ~[[ost.bow.app [%hiss /acme/directory/~zod ~ %httr %hiss url %get ~ ~]]]
       !>  moves
 --