Webapi__Fetch.resi

module AbortController = Webapi__Fetch__AbortController

/* * Alias for anyone upgrading */
module FormData = Webapi__FormData
type body
type bodyInit
type headers
type headersInit
type response
type request
type requestInit

/* external */
type arrayBuffer /* TypedArray */
type bufferSource /* Web IDL, either an arrayBuffer or arrayBufferView */
type formData = FormData.t /* XMLHttpRequest */
type readableStream /* Streams */
type urlSearchParams /* URL */
type abortController = AbortController.t
type signal = AbortController.signal

@@ocaml.text(" File API ")

type blob
type file

type requestMethod =
  | Get
  | Head
  | Post
  | Put
  | Delete
  | Connect
  | Options
  | Trace
  | Patch
  | Other(string)

type referrerPolicy =
  | None
  | NoReferrer
  | NoReferrerWhenDowngrade
  | SameOrigin
  | Origin
  | StrictOrigin
  | OriginWhenCrossOrigin
  | StrictOriginWhenCrossOrigin
  | UnsafeUrl

type requestType =
  | None /* default? unknown? just empty string in spec */
  | Audio
  | Font
  | Image
  | Script
  | Style
  | Track
  | Video

type requestDestination =
  | None /* default? unknown? just empty string in spec */
  | Document
  | Embed
  | Font
  | Image
  | Manifest
  | Media
  | Object
  | Report
  | Script
  | ServiceWorker
  | SharedWorker
  | Style
  | Worker
  | Xslt

type requestMode = [
  | #navigate
  | #"same-origin"
  | #"no-cors"
  | #cors
]

type requestCredentials = [
  | #omit
  | #"same-origin"
  | #"include"
]

type requestCache = [
  | #default
  | #"no-store"
  | #reload
  | #"no-cache"
  | #"force-cache"
  | #"only-if-cached"
]

type requestRedirect = [
  | #follow
  | #error
  | #manual
]

module HeadersInit: {
  type t = headersInit

  external make: {..} => t = "%identity"
  external makeWithDict: Js.Dict.t<string> => t = "%identity"
  external makeWithArray: array<(string, string)> => t = "%identity"
}

module Headers: {
  type t = headers

  @new external make: t = "Headers"
  @new external makeWithInit: headersInit => t = "Headers"

  @send external append: t => (string, string) => unit = "append"
  @send external delete: t => string => unit = "delete"
  /* entries */ /* very experimental */
  @send @return(null_to_opt)
  external get: t => string => option<string> = "get"
  @send external has: t => string => bool = "has"
  /* keys */ /* very experimental */
  @send external set: t => (string, string) => unit = "set"
  /* values */
  /* very experimental */
}

module BodyInit: {
  type t = bodyInit

  external make: string => t = "%identity"
  external makeWithBlob: blob => t = "%identity"
  external makeWithBufferSource: bufferSource => t = "%identity"
  external makeWithFormData: formData => t = "%identity"
  external makeWithUrlSearchParams: urlSearchParams => t = "%identity"
}

module Body: {
  type t = body

  @get external body: t => readableStream = "body"
  @get external bodyUsed: t => bool = "bodyUsed"

  @send external arrayBuffer: t => Js.Promise.t<arrayBuffer> = "arrayBuffer"
  @send external blob: t => Js.Promise.t<blob> = "blob"
  @send external formData: t => Js.Promise.t<formData> = "formData"
  @send external json: t => Js.Promise.t<Js.Json.t> = "json"
  @send external text: t => Js.Promise.t<string> = "text"
}

module RequestInit: {
  type t = requestInit

  let make: (
    ~method_: requestMethod=?,
    ~headers: headersInit=?,
    ~body: bodyInit=?,
    ~referrer: string=?,
    ~referrerPolicy: referrerPolicy=?,
    ~mode: requestMode=?,
    ~credentials: requestCredentials=?,
    ~cache: requestCache=?,
    ~redirect: requestRedirect=?,
    ~integrity: string=?,
    ~keepalive: bool=?,
    ~signal: signal=?,
    unit,
  ) => t
}

module Request: {
  type t = request

  @new external make: string => t = "Request"
  @new external makeWithInit: (string, requestInit) => t = "Request"
  @new external makeWithRequest: t => t = "Request"
  @new external makeWithRequestInit: (t, requestInit) => t = "Request"

  let method_: t => requestMethod
  @get external url: t => string = "url"
  @get external headers: t => headers = "headers"
  let type_: t => requestType
  let destination: t => requestDestination
  @get external referrer: t => string = "referrer"
  let referrerPolicy: t => referrerPolicy
  let mode: t => requestMode
  let credentials: t => requestCredentials
  let cache: t => requestCache
  let redirect: t => requestRedirect
  @get external integrity: t => string = "integrity"
  @get external keepalive: t => bool = "keepalive"
  @get external signal: t => signal = "signal"

  /* Body Impl */
  @get external body: t => readableStream = "body"
  @get external bodyUsed: t => bool = "bodyUsed"

  @send external arrayBuffer: t => Js.Promise.t<arrayBuffer> = "arrayBuffer"
  @send external blob: t => Js.Promise.t<blob> = "blob"
  @send external formData: t => Js.Promise.t<formData> = "formData"
  @send external json: t => Js.Promise.t<Js.Json.t> = "json"
  @send external text: t => Js.Promise.t<string> = "text"
}

module Response: {
  type t = response

  @val external error: unit => t = "error"
  @val external redirect: string => t = "redirect"
  @val external redirectWithStatus: (string, int /* enum-ish */) => t = "redirect"
  @get external headers: t => headers = "headers"
  @get external ok: t => bool = "ok"
  @get external redirected: t => bool = "redirected"
  @get external status: t => int = "status"
  @get external statusText: t => string = "statusText"
  @get external type_: t => string = "type"
  @get external url: t => string = "url"

  @send external clone: t => t = "clone"

  /* Body.Impl */
  @get external body: t => readableStream = "body"
  @get external bodyUsed: t => bool = "bodyUsed"

  @send external arrayBuffer: t => Js.Promise.t<arrayBuffer> = "arrayBuffer"
  @send external blob: t => Js.Promise.t<blob> = "blob"
  @send external formData: t => Js.Promise.t<formData> = "formData"
  @send external json: t => Js.Promise.t<Js.Json.t> = "json"
  @send external text: t => Js.Promise.t<string> = "text"
}

@val external fetch: string => Js.Promise.t<response> = "fetch"
@val external fetchWithInit: (string, requestInit) => Js.Promise.t<response> = "fetch"
@val external fetchWithRequest: request => Js.Promise.t<response> = "fetch"
@val external fetchWithRequestInit: (request, requestInit) => Js.Promise.t<response> = "fetch"