bs-fetch Note

myFetch.re

let postSomethingWithFormData = (data) => {
  /* suppose your data is a object with several fields. e.g.,  
  let data = {
        "a": "aaa",
        "b": 123,
        "c": "kerker",
      };
  */
  let d = Qs.stringify(data);
  Js.Promise.(
    Fetch.fetchWithInit(
      "http://someUrl.com",
      Fetch.RequestInit.make(
        ~credentials=Include,
        ~headers=
          Fetch.HeadersInit.makeWithArray([|
            ("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
          |]),
        ~body=Fetch.BodyInit.make(d),
        ~method_=Post,
        ()
      )
    )
    |> then_(Fetch.Response.json)
    |> then_((rt) => Js.Promise.resolve(rt))
  )
};