23
0%
MIT
glennsl/refetch
0.1.1
unpublishedA strongly typed and immutable API built on top of the `fetch` standard
libraryhttp client
homepagerepositorynpmissuesdocumentation

re:fetch

Refetch is a strongly typed and immutable API built on top of the fetch standard. It is also incomplete, highly experimental and prone to change.

Dependencies Issues Last Commit

Installation

Run npm install --save glennsl/refetch and add refetch to the bs-dependencies in bsconfig.json.

Example

  • RE
  • ML 
/* Simple GET */
Resync.(Refetch.(
  get("http://httpbin.org/get")
  |> Future.flatMap(
     fun | Response.Ok(_, response) => Response.text(response)
         | _ => "oops!" |> Future.from)
  |> Future.whenResolved(Js.log)
));

/* builder functions */
Resync.(Refetch.(
  request(`POST, "https://httpbin.org/post")
    |> Request.header(`ContentType("application/x-www-form-urlencoded; charset=UTF-8"))
    |> Request.payload(`String("title=foobar&body=bar&userId=1"))
  |> fetch
    |> Future.flatMap(
        fun | Response.Ok(_, response) => Response.text(response)
            | Response.Error({ reason }, _) => Future.from(reason))
    |> Future.whenResolved(Js.log)
));

/* labeled arguments */
Resync.(Refetch.(
  request(`POST, "https://httpbin.org/post",
    ~headers=[`ContentType("application/x-www-form-urlencoded; charset=UTF-8")],
    ~body=`String("title=foobar&body=bar&userId=1"))
  |> fetch
    |> Future.flatMap(
        fun | Response.Ok(_, response) => Response.text(response)
            | Response.Error({ reason }, _) => Future.from(reason))
    |> Future.whenResolved(Js.log)
));
let _ =
  let open Resync in
    let open Refetch in
      ((get "http://httpbin.org/get") |>
         (Future.flatMap
            (function
             | ((Response.Ok (_,response))[@explicit_arity ]) ->
                 Response.text response
             | _ -> "oops!" |> Future.from)))
        |> (Future.whenResolved Js.log)
let _ =
  let open Resync in
    let open Refetch in
      (((((request `POST "https://httpbin.org/post") |>
            (Request.header
               (`ContentType
                  "application/x-www-form-urlencoded; charset=UTF-8")))
           |> (Request.payload (`String "title=foobar&body=bar&userId=1")))
          |> fetch)
         |>
         (Future.flatMap
            (function
             | ((Response.Ok (_,response))[@explicit_arity ]) ->
                 Response.text response
             | ((Response.Error ({ reason },_))[@explicit_arity ]) ->
                 Future.from reason)))
        |> (Future.whenResolved Js.log)
let _ =
  let open Resync in
    let open Refetch in
      (((request `POST "https://httpbin.org/post"
           ~headers:[`ContentType
                       "application/x-www-form-urlencoded; charset=UTF-8"]
           ~body:(`String "title=foobar&body=bar&userId=1"))
          |> fetch)
         |>
         (Future.flatMap
            (function
             | ((Response.Ok (_,response))[@explicit_arity ]) ->
                 Response.text response
             | ((Response.Error ({ reason },_))[@explicit_arity ]) ->
                 Future.from reason)))
        |> (Future.whenResolved Js.log)

Project

Made with

Reason