urbit/lib/http.hoon
2015-12-12 18:51:23 -08:00

34 lines
716 B
Plaintext

::
:::: /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))]
--