@effect-uai/discord 0.14.0

package/dist/internal/rest.mjs

@@ -0,0 +1,89 @@
+import { Data, Duration, Effect, Redacted, Schema } from "effect";
+import { HttpClient, HttpClientRequest } from "effect/unstable/http";
+import * as MessengerError from "@effect-uai/core/MessengerError";
+import * as Multipart from "@effect-uai/core/Multipart";
+//#region src/internal/rest.ts
+const provider = "discord";
+/** Tracks the package version; Discord requires a `DiscordBot (url, version)` agent. */
+const userAgent = "DiscordBot (https://effect-uai.betalyra.com, 0.14.0)";
+/**
+* A REST call that came back non-2xx or never came back at all. `code` is
+* Discord's own JSON error code, `status` the HTTP one; each verb maps this
+* onto its own `MessengerError`.
+*/
+var ApiFailure = class extends Data.TaggedError("DiscordApiFailure") {};
+const ErrorBody = Schema.Struct({
+	message: Schema.optional(Schema.String),
+	code: Schema.optional(Schema.Number),
+	retry_after: Schema.optional(Schema.Number)
+});
+const endpoint = (cfg, path) => `${cfg.baseUrl ?? "https://discord.com/api/v10"}${path}`;
+const constructors = {
+	GET: HttpClientRequest.get,
+	POST: HttpClientRequest.post,
+	PATCH: HttpClientRequest.patch,
+	PUT: HttpClientRequest.put,
+	DELETE: HttpClientRequest.delete
+};
+const request = (cfg, method, path) => constructors[method](endpoint(cfg, path)).pipe(HttpClientRequest.setHeaders({
+	Authorization: `Bot ${Redacted.value(cfg.token)}`,
+	"User-Agent": userAgent
+}));
+const transportFailure = (route) => (raw) => new ApiFailure({
+	route,
+	message: "transport failure",
+	raw
+});
+const rejected = (route, status, raw) => Effect.gen(function* () {
+	const body = yield* Schema.decodeUnknownEffect(ErrorBody)(raw).pipe(Effect.orElseSucceed(() => ({})));
+	return yield* status === 429 && body.retry_after !== void 0 ? new MessengerError.MessengerRateLimited({
+		provider,
+		retryAfter: Duration.seconds(body.retry_after),
+		raw
+	}) : new ApiFailure({
+		route,
+		status,
+		...body.code !== void 0 && { code: body.code },
+		message: body.message ?? `HTTP ${status}`,
+		raw
+	});
+});
+const send = (route, httpRequest) => Effect.gen(function* () {
+	const response = yield* (yield* HttpClient.HttpClient).execute(httpRequest).pipe(Effect.mapError(transportFailure(route)));
+	if (response.status === 204) return void 0;
+	const body = yield* response.json.pipe(Effect.mapError(transportFailure(route)));
+	return response.status < 400 ? body : yield* rejected(route, response.status, body);
+});
+/** One JSON call against the API base. The response body comes back undecoded. */
+const call = (cfg) => (method, path, body) => send(`${method} ${path}`, body === void 0 ? request(cfg, method, path) : request(cfg, method, path).pipe(HttpClientRequest.bodyJsonUnsafe(body)));
+const formData = (payload, file) => {
+	const form = new FormData();
+	form.append("payload_json", JSON.stringify({
+		...payload,
+		attachments: [{
+			id: 0,
+			filename: file.filename
+		}]
+	}));
+	form.append("files[0]", new File([file.bytes], file.filename, { type: file.mimeType }));
+	return form;
+};
+/** One multipart message: the JSON fields as `payload_json` plus a single file. */
+const upload = (cfg) => (path, payload, file) => Effect.gen(function* () {
+	const route = `POST ${path}`;
+	const body = yield* Multipart.bodyMultipart(formData(payload, file)).pipe(Effect.mapError(transportFailure(route)));
+	return yield* send(route, request(cfg, "POST", path).pipe(body));
+});
+/** Decode a response body; a shape mismatch is a malformed response, not a defect. */
+const decoded = (route, schema) => (result) => Effect.gen(function* () {
+	const raw = yield* result;
+	return yield* Schema.decodeUnknownEffect(schema)(raw).pipe(Effect.mapError(() => new ApiFailure({
+		route,
+		message: "malformed response",
+		raw
+	})));
+});
+//#endregion
+export { ApiFailure, call, decoded, provider, upload };
+
+//# sourceMappingURL=rest.mjs.map

package/dist/internal/rest.mjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"rest.mjs","names":[],"sources":["../../src/internal/rest.ts"],"sourcesContent":["import { Data, Duration, Effect, Redacted, Schema } from \"effect\"\nimport { HttpClient, HttpClientRequest } from \"effect/unstable/http\"\nimport * as MessengerError from \"@effect-uai/core/MessengerError\"\nimport * as Multipart from \"@effect-uai/core/Multipart\"\n\nexport const provider = \"discord\"\n\n/** Tracks the package version; Discord requires a `DiscordBot (url, version)` agent. */\nconst userAgent = \"DiscordBot (https://effect-uai.betalyra.com, 0.14.0)\"\n\nexport type Config = {\n  readonly token: Redacted.Redacted\n  /** Defaults to `https://discord.com/api/v10`. Always version-pinned. */\n  readonly baseUrl?: string\n}\n\nexport type Method = \"GET\" | \"POST\" | \"PATCH\" | \"PUT\" | \"DELETE\"\n\n/** JSON body fields of a request. */\nexport type Fields = Readonly<Record<string, unknown>>\n\n/**\n * A REST call that came back non-2xx or never came back at all. `code` is\n * Discord's own JSON error code, `status` the HTTP one; each verb maps this\n * onto its own `MessengerError`.\n */\nexport class ApiFailure extends Data.TaggedError(\"DiscordApiFailure\")<{\n  readonly route: string\n  readonly status?: number\n  readonly code?: number\n  readonly message: string\n  readonly raw: unknown\n}> {}\n\nexport type ApiError = ApiFailure | MessengerError.MessengerRateLimited\n\nconst ErrorBody = Schema.Struct({\n  message: Schema.optional(Schema.String),\n  code: Schema.optional(Schema.Number),\n  retry_after: Schema.optional(Schema.Number),\n})\n\n/** The file part of a multipart message. Discord names it `files[n]`. */\nexport type Upload = {\n  readonly bytes: Uint8Array\n  readonly filename: string\n  readonly mimeType: string\n}\n\nconst endpoint = (cfg: Config, path: string): string =>\n  `${cfg.baseUrl ?? \"https://discord.com/api/v10\"}${path}`\n\nconst constructors: Record<Method, (url: string) => HttpClientRequest.HttpClientRequest> = {\n  GET: HttpClientRequest.get,\n  POST: HttpClientRequest.post,\n  PATCH: HttpClientRequest.patch,\n  PUT: HttpClientRequest.put,\n  DELETE: HttpClientRequest.delete,\n}\n\nconst request = (cfg: Config, method: Method, path: string) =>\n  constructors[method](endpoint(cfg, path)).pipe(\n    HttpClientRequest.setHeaders({\n      Authorization: `Bot ${Redacted.value(cfg.token)}`,\n      \"User-Agent\": userAgent,\n    }),\n  )\n\nconst transportFailure = (route: string) => (raw: unknown) =>\n  new ApiFailure({ route, message: \"transport failure\", raw })\n\nconst rejected = (route: string, status: number, raw: unknown): Effect.Effect<never, ApiError> =>\n  Effect.gen(function* () {\n    const body = yield* Schema.decodeUnknownEffect(ErrorBody)(raw).pipe(\n      Effect.orElseSucceed((): typeof ErrorBody.Type => ({})),\n    )\n    // Discord's `retry_after` is float seconds; only a 429 carries one.\n    return yield* status === 429 && body.retry_after !== undefined\n      ? new MessengerError.MessengerRateLimited({\n          provider,\n          retryAfter: Duration.seconds(body.retry_after),\n          raw,\n        })\n      : new ApiFailure({\n          route,\n          status,\n          ...(body.code !== undefined && { code: body.code }),\n          message: body.message ?? `HTTP ${status}`,\n          raw,\n        })\n  })\n\nconst send = (\n  route: string,\n  httpRequest: HttpClientRequest.HttpClientRequest,\n): Effect.Effect<unknown, ApiError, HttpClient.HttpClient> =>\n  Effect.gen(function* () {\n    const client = yield* HttpClient.HttpClient\n    const response = yield* client\n      .execute(httpRequest)\n      .pipe(Effect.mapError(transportFailure(route)))\n    // 204 is the success shape of `typing`, `react` and every delete: no body\n    // to read, and reading one would fail.\n    if (response.status === 204) return undefined\n    const body = yield* response.json.pipe(Effect.mapError(transportFailure(route)))\n    return response.status < 400 ? body : yield* rejected(route, response.status, body)\n  })\n\n/** One JSON call against the API base. The response body comes back undecoded. */\nexport const call =\n  (cfg: Config) =>\n  (\n    method: Method,\n    path: string,\n    body?: unknown,\n  ): Effect.Effect<unknown, ApiError, HttpClient.HttpClient> =>\n    send(\n      `${method} ${path}`,\n      body === undefined\n        ? request(cfg, method, path)\n        : request(cfg, method, path).pipe(HttpClientRequest.bodyJsonUnsafe(body)),\n    )\n\n// The `attachments` entry is what binds `files[0]` to the message; without it\n// Discord can drop the part and reject the rest as an empty message.\nconst formData = (payload: Fields, file: Upload): FormData => {\n  const form = new FormData()\n  form.append(\n    \"payload_json\",\n    JSON.stringify({ ...payload, attachments: [{ id: 0, filename: file.filename }] }),\n  )\n  form.append(\n    \"files[0]\",\n    new File([file.bytes as Uint8Array<ArrayBuffer>], file.filename, { type: file.mimeType }),\n  )\n  return form\n}\n\n/** One multipart message: the JSON fields as `payload_json` plus a single file. */\nexport const upload =\n  (cfg: Config) =>\n  (\n    path: string,\n    payload: Fields,\n    file: Upload,\n  ): Effect.Effect<unknown, ApiError, HttpClient.HttpClient> =>\n    Effect.gen(function* () {\n      const route = `POST ${path}`\n      const body = yield* Multipart.bodyMultipart(formData(payload, file)).pipe(\n        Effect.mapError(transportFailure(route)),\n      )\n      return yield* send(route, request(cfg, \"POST\", path).pipe(body))\n    })\n\n/** Decode a response body; a shape mismatch is a malformed response, not a defect. */\nexport const decoded =\n  <A>(route: string, schema: Schema.Decoder<A>) =>\n  <E, R>(result: Effect.Effect<unknown, E, R>): Effect.Effect<A, E | ApiFailure, R> =>\n    Effect.gen(function* () {\n      const raw = yield* result\n      return yield* Schema.decodeUnknownEffect(schema)(raw).pipe(\n        Effect.mapError(() => new ApiFailure({ route, message: \"malformed response\", raw })),\n      )\n    })\n"],"mappings":";;;;;AAKA,MAAa,WAAW;;AAGxB,MAAM,YAAY;;;;;;AAkBlB,IAAa,aAAb,cAAgC,KAAK,YAAY,mBAAmB,CAAC,CAMlE,CAAC;AAIJ,MAAM,YAAY,OAAO,OAAO;CAC9B,SAAS,OAAO,SAAS,OAAO,MAAM;CACtC,MAAM,OAAO,SAAS,OAAO,MAAM;CACnC,aAAa,OAAO,SAAS,OAAO,MAAM;AAC5C,CAAC;AASD,MAAM,YAAY,KAAa,SAC7B,GAAG,IAAI,WAAW,gCAAgC;AAEpD,MAAM,eAAqF;CACzF,KAAK,kBAAkB;CACvB,MAAM,kBAAkB;CACxB,OAAO,kBAAkB;CACzB,KAAK,kBAAkB;CACvB,QAAQ,kBAAkB;AAC5B;AAEA,MAAM,WAAW,KAAa,QAAgB,SAC5C,aAAa,OAAO,CAAC,SAAS,KAAK,IAAI,CAAC,CAAC,CAAC,KACxC,kBAAkB,WAAW;CAC3B,eAAe,OAAO,SAAS,MAAM,IAAI,KAAK;CAC9C,cAAc;AAChB,CAAC,CACH;AAEF,MAAM,oBAAoB,WAAmB,QAC3C,IAAI,WAAW;CAAE;CAAO,SAAS;CAAqB;AAAI,CAAC;AAE7D,MAAM,YAAY,OAAe,QAAgB,QAC/C,OAAO,IAAI,aAAa;CACtB,MAAM,OAAO,OAAO,OAAO,oBAAoB,SAAS,CAAC,CAAC,GAAG,CAAC,CAAC,KAC7D,OAAO,qBAA4C,CAAC,EAAE,CACxD;CAEA,OAAO,OAAO,WAAW,OAAO,KAAK,gBAAgB,KAAA,IACjD,IAAI,eAAe,qBAAqB;EACtC;EACA,YAAY,SAAS,QAAQ,KAAK,WAAW;EAC7C;CACF,CAAC,IACD,IAAI,WAAW;EACb;EACA;EACA,GAAI,KAAK,SAAS,KAAA,KAAa,EAAE,MAAM,KAAK,KAAK;EACjD,SAAS,KAAK,WAAW,QAAQ;EACjC;CACF,CAAC;AACP,CAAC;AAEH,MAAM,QACJ,OACA,gBAEA,OAAO,IAAI,aAAa;CAEtB,MAAM,WAAW,QAAO,OADF,WAAW,WAAA,CAE9B,QAAQ,WAAW,CAAC,CACpB,KAAK,OAAO,SAAS,iBAAiB,KAAK,CAAC,CAAC;CAGhD,IAAI,SAAS,WAAW,KAAK,OAAO,KAAA;CACpC,MAAM,OAAO,OAAO,SAAS,KAAK,KAAK,OAAO,SAAS,iBAAiB,KAAK,CAAC,CAAC;CAC/E,OAAO,SAAS,SAAS,MAAM,OAAO,OAAO,SAAS,OAAO,SAAS,QAAQ,IAAI;AACpF,CAAC;;AAGH,MAAa,QACV,SAEC,QACA,MACA,SAEA,KACE,GAAG,OAAO,GAAG,QACb,SAAS,KAAA,IACL,QAAQ,KAAK,QAAQ,IAAI,IACzB,QAAQ,KAAK,QAAQ,IAAI,CAAC,CAAC,KAAK,kBAAkB,eAAe,IAAI,CAAC,CAC5E;AAIJ,MAAM,YAAY,SAAiB,SAA2B;CAC5D,MAAM,OAAO,IAAI,SAAS;CAC1B,KAAK,OACH,gBACA,KAAK,UAAU;EAAE,GAAG;EAAS,aAAa,CAAC;GAAE,IAAI;GAAG,UAAU,KAAK;EAAS,CAAC;CAAE,CAAC,CAClF;CACA,KAAK,OACH,YACA,IAAI,KAAK,CAAC,KAAK,KAAgC,GAAG,KAAK,UAAU,EAAE,MAAM,KAAK,SAAS,CAAC,CAC1F;CACA,OAAO;AACT;;AAGA,MAAa,UACV,SAEC,MACA,SACA,SAEA,OAAO,IAAI,aAAa;CACtB,MAAM,QAAQ,QAAQ;CACtB,MAAM,OAAO,OAAO,UAAU,cAAc,SAAS,SAAS,IAAI,CAAC,CAAC,CAAC,KACnE,OAAO,SAAS,iBAAiB,KAAK,CAAC,CACzC;CACA,OAAO,OAAO,KAAK,OAAO,QAAQ,KAAK,QAAQ,IAAI,CAAC,CAAC,KAAK,IAAI,CAAC;AACjE,CAAC;;AAGL,MAAa,WACP,OAAe,YACZ,WACL,OAAO,IAAI,aAAa;CACtB,MAAM,MAAM,OAAO;CACnB,OAAO,OAAO,OAAO,oBAAoB,MAAM,CAAC,CAAC,GAAG,CAAC,CAAC,KACpD,OAAO,eAAe,IAAI,WAAW;EAAE;EAAO,SAAS;EAAsB;CAAI,CAAC,CAAC,CACrF;AACF,CAAC"}