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