Function sendBody

packages/platform-browser/src/internal/httpClient.ts:83–118

(
  xhr: XMLHttpRequest,
  request: ClientRequest.HttpClientRequest
)

)

const sendBody = (
  xhr: XMLHttpRequest,
  request: ClientRequest.HttpClientRequest
): Effect.Effect<void, Error.RequestError> => {
  const body = request.body
  switch (body._tag) {
    case "Empty":
      return Effect.sync(() => xhr.send())
    case "Raw":
      return Effect.sync(() => xhr.send(body.body as any))
    case "Uint8Array":
      return Effect.sync(() => xhr.send(body.body))
    case "FormData":
      return Effect.sync(() => xhr.send(body.formData))
    case "Stream":
      return Effect.matchEffect(
        Stream.runFold(body.stream, new Uint8Array(0), (acc, chunk) => {
          const next = new Uint8Array(acc.length + chunk.length)
          next.set(acc, 0)
          next.set(chunk, acc.length)
          return next
        }),
        {
          onFailure: (cause) =>
            Effect.fail(
              new Error.RequestError({
                request,
                reason: "Encode",
                cause
              })
            ),
          onSuccess: (body) => Effect.sync(() => xhr.send(body))
        }
      )
  }
}

const encoder = new TextEncoder()