mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-18 12:22:10 +03:00
29 lines
659 B
Plaintext
29 lines
659 B
Plaintext
::
|
|
/- json-rpc
|
|
/+ httr-to-json
|
|
=, json-rpc
|
|
::
|
|
|_ res=response
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun response :: from noun
|
|
++ httr (cork httr-to-json json)
|
|
++ json :: from json
|
|
=, dejs-soft:format
|
|
|= a=json
|
|
^- response
|
|
=; dere
|
|
=+ res=((ar dere) a)
|
|
?~ res (need (dere a))
|
|
[%batch u.res]
|
|
|= a=json
|
|
^- (unit response)
|
|
=/ res=(unit @t)
|
|
((ot result+so ~) a)
|
|
?^ res `result+u.res
|
|
:+ ~ %error %- need
|
|
((ot code+so message+so ~) a)
|
|
--
|
|
--
|