urbit/gen/curl-hiss.hoon
2017-11-09 16:53:30 -08:00

18 lines
345 B
Plaintext

:: Make HTTP request(get only)
::
:::: /hoon/curl-hiss/gen
::
/? 310
/- sole
/+ old-zuse
=, old-zuse
=, sole
:- %get |= {^ {a/hiss $~} usr/iden}
^- (sole-request (cask httr))
?. ?=($get p.q.a)
~| %only-get-requests-supported-in-generators :: XX enforced?
!!
:- *tang
:^ %| `usr `hiss`a
|=(hit/httr (sole-so %httr hit))