graphix-package-http 0.8.0

A dataflow language for UIs and network programming, http package
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

let add_auth = |bearer, base| select bearer {
    string as b => array::concat(base, [("authorization", "Bearer [b]")]),
    null as _ => base
};

let get = |#bearer: [string, null] = null, #headers: Array<(string, string)> = [], client, url|
    request(
        #headers: array::concat(add_auth(bearer, [("accept", "application/json")]), headers),
        client,
        url
    );

let post = |#bearer: [string, null] = null, #headers: Array<(string, string)> = [], #body: string, client, url|
    request(
        #method: `POST,
        #headers: array::concat(add_auth(bearer, [("content-type", "application/json"), ("accept", "application/json")]), headers),
        #body: body,
        client,
        url
    );

let put = |#bearer: [string, null] = null, #headers: Array<(string, string)> = [], #body: string, client, url|
    request(
        #method: `PUT,
        #headers: array::concat(add_auth(bearer, [("content-type", "application/json"), ("accept", "application/json")]), headers),
        #body: body,
        client,
        url
    );

let delete = |#bearer: [string, null] = null, #headers: Array<(string, string)> = [], client, url|
    request(
        #method: `DELETE,
        #headers: array::concat(add_auth(bearer, [("accept", "application/json")]), headers),
        client,
        url
    );

let patch = |#bearer: [string, null] = null, #headers: Array<(string, string)> = [], #body: string, client, url|
    request(
        #method: `PATCH,
        #headers: array::concat(add_auth(bearer, [("content-type", "application/json"), ("accept", "application/json")]), headers),
        #body: body,
        client,
        url
    )