fetch with status

fetch_with_status.re

module Http = {
  type error =
    | Timeout
    | NetworkError
    | BadStatus(int, string);
  let getJSON = (url: string) =>
    Js.Promise.(
      Fetch.fetch(url)
      |> then_(value => {
           Js.log(value);
           let status = value |> Fetch.Response.status;
           let statusText = value |> Fetch.Response.statusText;
           switch status {
           | 0 => Js.Result.Error(NetworkError) |> resolve
           | 408 => Js.Result.Error(Timeout) |> resolve
           | status when status < 200 =>
             Js.Result.Error(BadStatus(status, statusText)) |> resolve
           | status when status >= 300 =>
             BadStatus(status, statusText)
             |> (err => Js.Result.Error(err))
             |> resolve
           | _ =>
             value
             |> Fetch.Response.json
             |> then_(json => Js.Result.Ok(json) |> resolve)
           };
         })
      |> catch(_err => Js.Result.Error(NetworkError) |> resolve)
    );
};

let fetchRepos = username =>
  Js.Promise.(
    Http.getJSON("https://api.github.com/users/" ++ username ++ "/repos")
    |> then_(result =>
         (
           switch result {
           | Js.Result.Ok(json) => Js.log("got json " ++ json)
           | Js.Result.Error(err) => Js.log("got error" ++ err)
           }
         )
         |> resolve
       )
  )
  |> ignore;