@openstage/monadyssey-fetch 3.0.0-beta.8 → 3.0.0-rc.2

package/dist/monadyssey-fetch.mjs

@@ -1,10 +1,17 @@
-import { IO as e, List as t, Option as n, Some as r, Stream as i } from "@openstage/monadyssey-core";
-//#region src/http-error.ts
-var a = {
+import { IO as e, List as t, Option as n, Stream as r } from "@openstage/monadyssey-core";
+// src/http-error.ts
+var i = (e) => {
+	try {
+		return Object.fromEntries(Array.from(e.headers.entries()).filter(([e]) => e !== "set-cookie" && e !== "set-cookie2"));
+	} catch {
+		return {};
+	}
+}, a = {
 	describe: (e) => e instanceof Error ? e.message : typeof e == "string" ? e : typeof e == "object" && e && "message" in e ? String(e.message) : "An unknown error occurred.",
 	format: (e, t, n, r, i) => {
 		switch (e) {
 			case "response": return `Request to '${t}' failed with status ${n} and message: ${r}.`;
+			case "decode": return `Response from '${t}' (status ${n}) could not be decoded: ${r}.`;
 			case "request": return `Request to '${t}' could not be sent: ${r}.`;
 			case "timeout": return `Request to '${t}' timed out after ${i} ms.`;
 			case "aborted": return `Request to '${t}' was aborted before a response arrived: ${r}.`;
@@ -29,6 +36,9 @@ var a = {
 	static timeout(t, n) {
 		return new e(0, `Request timed out after ${n} ms`, null, t, void 0, "timeout", void 0, n);
 	}
+	static decode(t, n, r) {
+		return new e(n.status, a.describe(r), null, t, i(n), "decode", r);
+	}
 	static request(t, n) {
 		return new e(0, a.describe(n), null, t, void 0, "request", n);
 	}
@@ -36,7 +46,7 @@ var a = {
 		return new e(0, a.describe(n), null, t, void 0, "aborted", n);
 	}
 	bodyAs(e) {
-		return e(this.body) ? r.of(this.body) : n.empty();
+		return e(this.body) ? n.ofNullable(this.body) : n.empty();
 	}
 }, s = (e) => typeof e != "object" || !e || e instanceof FormData || e instanceof Blob || e instanceof ArrayBuffer || e instanceof URLSearchParams || typeof ReadableStream < "u" && e instanceof ReadableStream || ArrayBuffer.isView(e), c = (e) => Object.fromEntries(Object.entries(e).filter((e) => e[1] !== void 0).map(([e, t]) => [e.toLowerCase(), t])), l = (e, t) => {
 	if (t instanceof FormData) {
@@ -47,7 +57,10 @@ var a = {
 		...e,
 		"content-type": "application/json"
 	} : e;
-}, u = (e, t, n) => e === "GET" || e === "HEAD" || t == null ? void 0 : s(t) ? t : n["content-type"] === "application/json" ? JSON.stringify(t) : t, d = {
+}, u = (e) => {
+	let t = e.split(";")[0].trim().toLowerCase();
+	return t === "application/json" || t.endsWith("+json");
+}, d = (e, t, n) => e === "GET" || e === "HEAD" || t == null ? void 0 : s(t) ? t : u(n["content-type"]) ? JSON.stringify(t) : t, f = {
 	isNativeBody: s,
 	normalizeHeaders: c,
 	prepare: (e, t, n) => {
@@ -59,32 +72,62 @@ var a = {
 			method: e,
 			headers: r,
 			credentials: t.credentials ?? n.credentials,
-			body: u(e, t.body, r)
+			body: d(e, t.body, r)
 		};
 	}
-}, f = {
+}, p = {
 	json: (e) => e.json(),
 	text: (e) => e.text(),
 	blob: (e) => e.blob(),
 	arrayBuffer: (e) => e.arrayBuffer(),
 	formData: (e) => e.formData()
-}, p = (e) => Object.prototype.hasOwnProperty.call(f, e) ? n.of(f[e]) : n.empty(), m = (e) => {
-	try {
-		return Object.fromEntries(e.headers.entries());
-	} catch {
-		return {};
-	}
-}, h = (e, t, n) => new o(n.status, a.describe(e), null, t, m(n), "response", e), g = (e, t, n) => new o(e.status, e.statusText, t, n, m(e)), _ = {
-	headers: m,
-	error: h,
-	failure: g,
-	read: (t, n, r) => e.from(p(n), () => h(`Unsupported response type: ${n}`, r, t)).flatMap((n) => e.lift(() => t.status === 204 || t.status === 205 ? null : n(t), (e) => h(e, r, t))),
-	settle: (t, n, r) => t.ok ? e.of(n) : e.fail(g(t, n, r))
-}, v = (e) => typeof e == "object" && !!e && "name" in e && e.name === "AbortError", y = {
-	error: (e, t) => e instanceof o ? e : v(e) ? o.aborted(t, e) : o.network(t, e),
+}, m = (e) => Object.prototype.hasOwnProperty.call(p, e) ? n.of(p[e]) : n.empty(), h = i, g = (e, t, n) => o.decode(t, n, e), _ = Symbol("HttpResponse.noBody"), v = (e, t, n) => new o(e.status, e.statusText, t, n, h(e)), y = async (e) => {
+	if (typeof e.text != "function") return e.json();
+	let t = await e.text();
+	return t.trim() === "" ? _ : JSON.parse(t);
+}, b = {
+	headers: h,
+	error: g,
+	failure: v,
+	read: (t, n, r, i) => e.from(m(n), () => g(`Unsupported response type: ${n}`, r, t)).flatMap((a) => e.lift(async () => t.status === 204 || t.status === 205 || i === "HEAD" ? _ : n === "json" ? y(t) : a(t), (e) => g(e, r, t))),
+	readFailure: (t, n, r) => e.promise(async () => {
+		try {
+			if (n !== "json") return await m(n).fold(async () => null, (e) => e(t));
+			if (typeof t.text != "function") return await t.json();
+			let e = await t.text();
+			if (e.trim() === "") return null;
+			try {
+				return JSON.parse(e);
+			} catch {
+				return e;
+			}
+		} catch {
+			return null;
+		}
+	}).flatMap((n) => e.fail(v(t, n, r)))
+}, x = (e) => typeof e == "object" && !!e && "name" in e && e.name === "AbortError", S = {
+	error: (e, t) => e instanceof o ? e : x(e) ? o.aborted(t, e) : o.network(t, e),
 	isRetryable: (e) => e.kind === "network" || e.kind === "response" && e.status >= 500
-}, b = { run: (e, t, n) => e.reduceRight((e, t) => (n) => t.intercept(n, e), n)(t) }, x = (e) => {
-	let t, n, r, i = [];
+}, C = {
+	run: (e, t, n) => e.reduceRight((e, t) => (n) => t.intercept(n, e), n)(t),
+	request: (e, t) => {
+		let n;
+		try {
+			n = new Headers(t.headers);
+		} catch (t) {
+			throw o.request(e, t);
+		}
+		return {
+			url: e,
+			init: {
+				...t,
+				headers: n
+			}
+		};
+	},
+	fetch: (e) => fetch(e.url, e.init)
+}, w = (e) => {
+	let t = "", n, r, i = [];
 	for (let a of e.split("\n")) {
 		if (a === "" || a.startsWith(":")) continue;
 		let e = a.indexOf(":"), o = e === -1 ? a : a.slice(0, e), s = e === -1 ? "" : a.slice(e + 1);
@@ -96,45 +139,73 @@ var a = {
 				i.push(s);
 				break;
 			case "id":
-				n = s;
+				s.includes("\0") || (n = s);
 				break;
 			case "retry": /^\d+$/.test(s) && (r = Number.parseInt(s, 10));
 		}
 	}
-	return i.length === 0 ? null : {
-		event: t ?? "message",
-		data: i.join("\n"),
+	return {
+		event: i.length === 0 ? null : {
+			event: t || "message",
+			data: i.join("\n"),
+			...n === void 0 ? {} : { id: n },
+			...r === void 0 ? {} : { retry: r }
+		},
 		...n === void 0 ? {} : { id: n },
 		...r === void 0 ? {} : { retry: r }
 	};
-}, S = class {
+}, T = (e, t) => {
+	let { id: n, ...r } = e;
+	return t === void 0 ? r : {
+		...r,
+		id: t
+	};
+}, E = class {
+	limit;
 	decoder = new TextDecoder("utf-8");
 	buffered = "";
+	constructor(e = Infinity) {
+		this.limit = e;
+	}
+	skipLeadingLF = !1;
 	push(e) {
-		let t = this.buffered + this.decoder.decode(e, { stream: !0 }), n = !1;
-		t.endsWith("\r") && (t = t.slice(0, -1), n = !0), t = t.replace(/\r\n/g, "\n").replace(/\r/g, "\n");
-		let r = t.split("\n\n"), i = r.pop() ?? "";
-		return n && (i += "\r"), this.buffered = i, r.map(x).filter((e) => e !== null);
+		let t = this.decoder.decode(e, { stream: !0 });
+		if (t.length === 0) return [];
+		this.skipLeadingLF && t.startsWith("\n") && (t = t.slice(1)), this.skipLeadingLF = t.endsWith("\r");
+		let n = Math.max(0, this.buffered.length - 1);
+		if (t = this.buffered + t.replace(/\r\n/g, "\n").replace(/\r/g, "\n"), t.indexOf("\n\n", n) === -1) return this.buffered = t, this.checkLimit(), [];
+		let r = t.split("\n\n");
+		return this.buffered = r.pop() ?? "", this.checkLimit(), r.map(w);
 	}
 	reset() {
-		this.decoder = new TextDecoder("utf-8"), this.buffered = "";
+		this.decoder = new TextDecoder("utf-8"), this.buffered = "", this.skipLeadingLF = !1;
+	}
+	checkLimit() {
+		if (this.buffered.length > this.limit) throw RangeError(`An event block exceeds the ${this.limit}-character limit without ending`);
 	}
-}, C = () => {
-	let e = new S();
-	return (n) => n.mapAccumulate(null, (n) => [null, t.from(e.push(n))]);
-}, w = 100, T = (t) => e.cancellable((e) => new Promise((n) => {
+}, D = () => {
+	let e = new E();
+	return (n) => n.mapAccumulate(void 0, (n, r) => {
+		let i = [], a = n;
+		for (let t of e.push(r)) t.id !== void 0 && (a = t.id), t.event !== null && i.push(T(t.event, a));
+		return [a, t.from(i)];
+	});
+}, O = 100, k = 2147483647, A = 1048576, j = (e) => Array.from(new TextEncoder().encode(e), (e) => String.fromCharCode(e)).join(""), M = (t) => e.promise((e) => new Promise((n) => {
 	let r = () => {
 		clearTimeout(i), n();
 	}, i = setTimeout(() => {
 		e.removeEventListener("abort", r), n();
-	}, t);
+	}, Math.min(t, k));
 	e.addEventListener("abort", r, { once: !0 });
-})), E = class {
+})), N = class {
 	controller = new AbortController();
-	frames = new S();
+	frames = new E(A);
 	pending = [];
 	lastEventId = void 0;
 	retryMs;
+	serverRetryMs = void 0;
+	reconnects = 0;
+	status = 200;
 	connection = null;
 	unlinkParent;
 	constructor(e, t) {
@@ -145,11 +216,12 @@ var a = {
 	get reader() {
 		return this.connection?.reader ?? null;
 	}
-	attach(e) {
-		let t = () => e.cancel().catch(() => {});
-		this.controller.signal.addEventListener("abort", t, { once: !0 }), this.connection = {
+	attach(e, t) {
+		this.status = t;
+		let n = () => e.cancel().catch(() => {});
+		this.controller.signal.addEventListener("abort", n, { once: !0 }), this.connection = {
 			reader: e,
-			unlink: () => this.controller.signal.removeEventListener("abort", t)
+			unlink: () => this.controller.signal.removeEventListener("abort", n)
 		}, this.frames.reset();
 	}
 	closeConnection() {
@@ -158,33 +230,57 @@ var a = {
 	close() {
 		this.closeConnection(), this.unlinkParent(), this.controller.abort();
 	}
-}, D = { stream: (t) => {
-	let { url: r, headers: a, defaultHeaders: o, credentials: s, interceptors: c, reconnect: l, retry: u } = t, f = (t) => {
-		let n = d.prepare("GET", {
+}, P = (e) => e.split(";")[0].trim().toLowerCase(), F = { stream: (t) => {
+	let { url: i, headers: a, defaultHeaders: s, credentials: c, interceptors: l, reconnect: u, retry: d } = t, p = (t) => {
+		let n = f.prepare("GET", {
 			headers: {
 				...a,
 				accept: "text/event-stream",
-				...t.lastEventId === void 0 ? {} : { "last-event-id": t.lastEventId }
+				...t.lastEventId ? { "last-event-id": j(t.lastEventId) } : {}
 			},
-			credentials: s
+			credentials: c
 		}, {
-			headers: o,
-			credentials: s
+			headers: s,
+			credentials: c
 		});
-		return e.lift(() => b.run(c, {
+		return e.lift(() => C.run(l, C.request(i, {
 			...n,
+			cache: "no-store",
 			signal: t.controller.signal
-		}, (e) => fetch(r, e)), (e) => y.error(e, r)).flatMap((t) => t.ok ? e.of(t) : _.read(t, "text", r).flatMapErr(() => e.of(null)).flatMap((n) => e.fail(_.failure(t, n, r)))).flatMap((t) => t.body === null ? e.fail(_.error("Response has no body", r, t)) : e.of(t.body.getReader()));
-	}, p = (t) => e.lift(() => t.read(), (e) => y.error(e, r)), m = e.of(n.empty()), h = (e) => T(e.retryMs).flatMap(() => g(e)), g = (t) => {
-		if (t.pending.length > 0) {
+		}), C.fetch), (e) => S.error(e, i)).flatMap((t) => t.ok ? e.of(t) : b.readFailure(t, "text", i)).flatMap((t) => {
+			if (t.status === 204) return t.body?.cancel().catch(() => {}), e.of(null);
+			let n = t.headers.get("content-type");
+			return n !== null && P(n) !== "text/event-stream" ? (t.body?.cancel().catch(() => {}), e.fail(b.error(`Expected text/event-stream, got ${n}`, i, t))) : t.body === null ? e.fail(b.error("Response has no body", i, t)) : e.of({
+				reader: t.body.getReader(),
+				status: t.status
+			});
+		});
+	}, m = (t) => e.lift(() => t.read(), (e) => S.error(e, i)), h = e.of(n.empty()), g = (e, t) => {
+		if (u === !1) return t;
+		let n = e.reconnects + 1;
+		if (u !== !0 && !u.allowsAttempt(n)) return t;
+		let r = e.serverRetryMs ?? (u === !0 ? e.retryMs : u.delayAfter(n));
+		return e.reconnects = n, M(r).flatMap(() => _(e));
+	}, _ = (t) => {
+		for (; t.pending.length > 0;) {
 			let r = t.pending.shift();
-			return r.id !== void 0 && (t.lastEventId = r.id), r.retry !== void 0 && (t.retryMs = Math.max(r.retry, w)), e.of(n.of([r, t]));
+			if (r.id !== void 0 && (t.lastEventId = r.id), r.retry !== void 0 && (t.serverRetryMs = Math.max(r.retry, O)), r.event !== null) return t.reconnects = 0, e.of(n.of([T(r.event, t.lastEventId), t]));
 		}
 		let r = t.reader;
-		return r === null ? f(t).foldM((n) => l && y.isRetryable(n) ? h(t) : e.fail(n), (e) => (t.attach(e), g(t))) : p(r).foldM((n) => (t.closeConnection(), l && y.isRetryable(n) ? h(t) : e.fail(n)), (e) => e.done ? (t.closeConnection(), l ? h(t) : m) : (t.pending.push(...t.frames.push(e.value)), g(t)));
+		return r === null ? p(t).foldM((n) => S.isRetryable(n) ? g(t, e.fail(n)) : e.fail(n), (e) => e === null ? h : (t.attach(e.reader, e.status), _(t))) : m(r).foldM((n) => (t.closeConnection(), S.isRetryable(n) ? g(t, e.fail(n)) : e.fail(n)), (n) => {
+			if (n.done) return t.closeConnection(), g(t, h);
+			let r;
+			try {
+				r = t.frames.push(n.value);
+			} catch (n) {
+				return t.closeConnection(), e.fail(new o(t.status, String(n.message), null, i, void 0, "decode", n));
+			}
+			for (let e of r) t.pending.push(e);
+			return _(t);
+		});
 	};
-	return i.bracket(e.cancellable((e) => new E(u, e)), (e) => i.unfoldEval(e, g), (t) => e.lift(() => t.close()));
-} }, O = class {
+	return r.bracket(e.promise(async (e) => new N(d, e)), (e) => r.unfoldEval(e, _), (t) => e.sync(() => t.close()));
+} }, I = class {
 	interceptors;
 	baseUrl;
 	defaultHeaders;
@@ -193,35 +289,44 @@ var a = {
 	constructor(e = {}) {
 		this.interceptors = Object.freeze([...e.interceptors ?? []]), this.baseUrl = e.baseUrl, this.defaultHeaders = e.defaultHeaders ?? {}, this.defaultTimeout = e.timeout, this.defaultCredentials = e.credentials ?? "same-origin";
 	}
-	get(e, t) {
+	get(e, t = {}) {
 		return this.request(e, "GET", t);
 	}
-	post(e, t, n) {
+	post(e, t, n = {}) {
 		return this.request(e, "POST", {
 			...n,
 			body: t
 		});
 	}
-	put(e, t, n) {
+	put(e, t, n = {}) {
 		return this.request(e, "PUT", {
 			...n,
 			body: t
 		});
 	}
-	patch(e, t, n) {
+	patch(e, t, n = {}) {
 		return this.request(e, "PATCH", {
 			...n,
 			body: t
 		});
 	}
-	delete(e, t) {
+	delete(e, t = {}) {
 		return this.request(e, "DELETE", t);
 	}
 	fetch(e, t, n = {}) {
 		return this.request(e, t, n);
 	}
+	send(t, n, r) {
+		let i = this.resolveUrl(n), a = r ?? {};
+		return this.withTimeout(i, a.timeout, this.exchange(i, t, a).flatMap((t) => t.ok ? e.sync(() => void t.body?.cancel().catch(() => {})) : b.readFailure(t, "json", i)));
+	}
+	raw(t, n, r) {
+		let i = this.resolveUrl(n), a = r ?? {};
+		return this.withTimeout(i, a.timeout, this.exchange(i, t, a).flatMap((t) => t.ok ? e.of(t) : b.readFailure(t, "json", i)));
+	}
 	sse(e, t = {}) {
-		return D.stream({
+		if (t.retry !== void 0 && !(t.retry >= 0)) throw RangeError(`HttpClient.sse: retry must be a non-negative number of milliseconds, got ${t.retry}`);
+		return F.stream({
 			url: this.resolveUrl(e),
 			headers: t.headers ?? {},
 			defaultHeaders: this.defaultHeaders,
@@ -232,25 +337,28 @@ var a = {
 		});
 	}
 	resolveUrl(e) {
-		if (!this.baseUrl) return e;
-		try {
-			return new URL(e), e;
-		} catch {
-			return `${this.baseUrl.endsWith("/") ? this.baseUrl.slice(0, -1) : this.baseUrl}${e.startsWith("/") ? e : `/${e}`}`;
-		}
+		return !this.baseUrl || /^[a-z][a-z\d+.-]*:\/\//i.test(e) || /^(data|blob):/i.test(e) ? e : `${this.baseUrl.endsWith("/") ? this.baseUrl.slice(0, -1) : this.baseUrl}${e.startsWith("/") ? e : `/${e}`}`;
 	}
-	request(t, n, r = {}) {
-		let i = this.resolveUrl(t), a = r.timeout ?? this.defaultTimeout, { responseType: s = "json", observe: c = "body", transform: l = (e) => e } = r, u = {
+	exchange(t, n, r) {
+		if ((n === "GET" || n === "HEAD") && r.body != null) throw TypeError(`A ${n} request cannot have a body (${t})`);
+		let i = {
 			headers: this.defaultHeaders,
 			credentials: this.defaultCredentials
-		}, f = e.lift(() => d.prepare(n, r, u), (e) => o.request(i, e)), p = (t) => e.cancellable((e) => b.run(this.interceptors, {
-			...t,
+		};
+		return e.lift(() => f.prepare(n, r, i), (e) => o.request(t, e)).flatMap((n) => e.cancellable((e) => C.run(this.interceptors, C.request(t, {
+			...n,
 			signal: e
-		}, (e) => fetch(i, e)), (e) => y.error(e, i)), m = (t) => _.read(t, s, i).flatMap((e) => _.settle(t, e, i)).flatMap((n) => e.lift(() => l(n), (e) => _.error(e, i, t))), h = f.flatMap(p).flatMap((t) => t.ok && c === "response" ? e.of(t) : m(t));
-		return a == null ? h : h.timeout(a, () => o.timeout(i, a));
+		}), C.fetch), (e) => S.error(e, t)));
+	}
+	withTimeout(e, t, n) {
+		let r = t ?? this.defaultTimeout;
+		return r == null ? n : n.timeout(r, () => o.timeout(e, r));
+	}
+	request(t, r, i) {
+		let a = this.resolveUrl(t), { responseType: s = "json", transform: c = (e) => e, empty: l = "error" } = i;
+		return this.withTimeout(a, i.timeout, this.exchange(a, r, i).flatMap((t) => t.ok ? b.read(t, s, a, r).flatMap((r) => r === _ ? l === "option" ? e.of(n.empty()) : e.fail(o.decode(a, t, `expected a response body, got none (status ${t.status}); use send() or { empty: "option" }`)) : e.lift(() => c(r), (e) => o.decode(a, t, e)).map((e) => l === "option" ? n.ofNullable(e) : e)) : b.readFailure(t, s, a)));
 	}
 };
-//#endregion
-export { O as HttpClient, o as HttpError, C as decodeEvents };
+export { I as HttpClient, o as HttpError, D as decodeEvents };
 
 //# sourceMappingURL=monadyssey-fetch.mjs.map