Re: [Caml-list] ocamlnet question: get with arbitrary header

[Gerd Stolpmann <info@gerd-stolpmann.de>]

[-- Attachment #1.1: Type: text/plain, Size: 1773 bytes --]



On 26.03.18 07:57, Alan Schmitt wrote:
> Hello Gerd,
>
> On 2018-03-22 20:55, Gerd Stolpmann <info@gerd-stolpmann.de> writes:
>
>> No, with the Convenience module you cannot do it. It's really meant for
>> super-simple stuff only.
>>
>> But you can do:
>>
>> let pipeline = new Nethttp.pipeline in
>> let call = new Nethttp_client.get url in
>> call # set_request_header (new Netmime.basic_mime_header
>> ["Authorization", ...]);
>> pipeline # add call;
>> pipeline # run()
>>
>> then check for call # response_* values. You can reuse the pipeline
>> across calls.
> Thank you for the tip. The API I'm interacting with also uses the PATCH
> method, is there support for it in ocamlnet?


Well, you would have to create your own class for that, e.g. there is
for GET:

class get_call = object(self)   inherit generic_call   method private
fixup_request() = ()   method private def_request_method = "GET"  
method private def_is_idempotent = true   method private
def_has_req_body = false   method private def_has_resp_body = true  
method private def_empty_path_replacement = "/" end

class get the_query =   object (self)     inherit get_call    
initializer       self # set_request_uri the_query   end


For PATCH you'd have to define something along these lines. For other
examples like POST see the source code.

Gerd

> Best,
>
> Alan
>

-- 
------------------------------------------------------------
Gerd Stolpmann, Darmstadt, Germany    gerd@gerd-stolpmann.de
My OCaml site:          http://www.camlcity.org
Contact details:        http://www.camlcity.org/contact.html
Company homepage:       http://www.gerd-stolpmann.de
------------------------------------------------------------



[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 488 bytes --]