shrub/lib/http.hoon

::
::::  /hoon#http#lib
  ::
  ::
  ::
/?    310
!:
|%
++  request
  $:  domain/(list cord)  
      end-point/path
      req-type/$?($get {$post p/json})  
      headers/math
      queries/quay
  ==
++  send
  |=  {ost/bone pour-path/wire params/request}
  :^  ost  %them  pour-path
  `(unit hiss)`[~ (request-to-hiss params)]
::
++  request-to-hiss
  |=  request  ^-  hiss
  =-  ~&  hiss=-  -
  :-  ^-  parsed-url/purl
      :+  :+  security=%.y
            port=~
          host=[%.y [path=domain]]
        endpoint=[extensions=~ point=end-point]       ::  ++pork,
      q-strings=queries                               ::  ++quay
  ?@  req-type
    [%get headers ~]
  [%post headers ~ (tact (pojo p.req-type))]
--