@krak-stack/registry 0.1.37 → 0.1.39

package/dist/lib/httpapi-mcp.js

@@ -1,477 +0,0 @@
-// ../../src/lib/httpapi-mcp.ts
-import { Context as Context3, Effect as Effect3, Layer as Layer3, Option as Option2, Schema as Schema3 } from "effect";
-import { McpProtocol, McpSchema, McpServer } from "effect/ai";
-
-// ../../src/lib/httpapi-client.ts
-import { Context, Effect, Layer, Schema, SchemaTransformation } from "effect";
-import { HttpClient } from "effect/http";
-import {
-  HttpApi,
-  HttpApiClient as EffectHttpApiClient,
-  OpenApi
-} from "effect/http-api";
-var UndefinedFromNull = Schema.Null.pipe(Schema.decodeTo(Schema.Undefined, SchemaTransformation.transform({
-  decode: () => {
-    return;
-  },
-  encode: () => null
-})));
-var HttpApiOperationResultValue = Schema.suspend(() => Schema.Union([
-  Schema.Null,
-  UndefinedFromNull,
-  Schema.String,
-  Schema.Number,
-  Schema.Boolean,
-  Schema.DateFromString,
-  Schema.Uint8ArrayFromBase64,
-  Schema.Array(HttpApiOperationResultValue),
-  Schema.Record(Schema.String, HttpApiOperationResultValue)
-]));
-var HttpApiOperationResult = Schema.Union([
-  HttpApiOperationResultValue,
-  Schema.Undefined
-]).annotate({ identifier: "HttpApiOperationResult" });
-var encodeHttpApiOperationResult = Effect.fn("HttpApiClient.encodeOperationResult")((result) => Schema.encodeUnknownEffect(HttpApiOperationResult)(result).pipe(Effect.map((encoded) => encoded ?? null), Effect.mapError((cause) => new Error("HTTP API result is not serializable", { cause }))));
-var reflectedSchema = (schema) => Schema.make(schema.ast);
-var operationResultSchemas = (api) => {
-  const schemas = new Map;
-  HttpApi.reflect(api, {
-    onGroup: () => {
-      return;
-    },
-    onEndpoint: ({ endpoint, group, successes }) => {
-      const operationId = Context.getOrElse(endpoint.annotations, OpenApi.Identifier, () => group.topLevel ? endpoint.identifier : `${group.identifier}.${endpoint.identifier}`);
-      const operationSchemas = Array.from(successes.values()).flat().map(reflectedSchema);
-      if (operationSchemas.length === 1 && operationSchemas[0]) {
-        schemas.set(operationId, operationSchemas[0]);
-      } else if (operationSchemas.length > 1) {
-        schemas.set(operationId, Schema.Union(operationSchemas));
-      }
-    }
-  });
-  return schemas;
-};
-var makeHttpApiOperationResultEncoder = (api) => {
-  const schemas = operationResultSchemas(api);
-  return Effect.fn("HttpApiClient.encodeOperationResultWithSchema")((result, operation) => {
-    const operationId = operation.operation.operationId;
-    const schema = operationId ? schemas.get(operationId) : undefined;
-    if (!schema)
-      return encodeHttpApiOperationResult(result);
-    return Schema.encodeUnknownEffect(schema)(result).pipe(Effect.flatMap(encodeHttpApiOperationResult), Effect.mapError((cause) => new Error("HTTP API result does not match its success schema", {
-      cause
-    })));
-  });
-};
-var GeneratedOperation = Schema.declare((value) => value instanceof Function).annotate({ identifier: "GeneratedOperation" });
-var GeneratedOperationEffect = Schema.declare((value) => Effect.isEffect(value)).annotate({ identifier: "GeneratedOperationEffect" });
-var makeGeneratedClient = (api, http, baseUrl) => EffectHttpApiClient.makeWith(api, {
-  baseUrl,
-  httpClient: http
-});
-var executeGeneratedOperation = Effect.fn("HttpApiClient.executeGeneratedOperation")(function* (client, { input, operation: entry }) {
-  const operationId = entry.operation.operationId;
-  if (!operationId) {
-    return yield* Effect.fail(new Error(`No generated API client operation for ${entry.method} ${entry.path}`));
-  }
-  const target = Object(client);
-  const groupName = Object.keys(target).filter((name) => operationId.startsWith(`${name}.`)).sort((a, b) => b.length - a.length)[0];
-  const group = groupName ? Object.entries(target).find(([name]) => name === groupName)?.[1] : target;
-  const endpointName = groupName ? operationId.slice(groupName.length + 1) : operationId;
-  const endpointCandidate = group instanceof Function ? undefined : Object.entries(Object(group)).find(([name]) => name === endpointName)?.[1];
-  const endpoint = Schema.decodeUnknownOption(GeneratedOperation)(endpointCandidate);
-  if (endpoint._tag === "None") {
-    return yield* Effect.fail(new Error(`No generated API client operation for ${operationId}`));
-  }
-  const result = Schema.decodeUnknownOption(GeneratedOperationEffect)(endpoint.value({
-    headers: input.headers,
-    params: input.params,
-    query: input.query,
-    payload: input.body
-  }));
-  if (result._tag === "None") {
-    return yield* Effect.fail(new Error(`Generated API client operation ${operationId} is invalid`));
-  }
-  return yield* result.value;
-});
-
-class ApiClient extends Context.Service()("ApiClient") {
-  static layer = (config) => Layer.effect(this, Effect.gen(function* () {
-    const http = yield* HttpClient.HttpClient;
-    const encodeResult = makeHttpApiOperationResultEncoder(config.api);
-    const client = yield* makeGeneratedClient(config.api, http, config.baseUrl);
-    return {
-      encodeResult: config.encodeResult ?? ((result, operation) => encodeResult(result, operation)),
-      execute: Effect.fn("ApiClient.execute")(function* (options) {
-        return yield* executeGeneratedOperation(client, options);
-      })
-    };
-  }));
-}
-
-// ../../src/lib/httpapi-helpers.tsx
-import {
-  Context as Context2,
-  Effect as Effect2,
-  JsonSchema,
-  Layer as Layer2,
-  Option,
-  Schema as Schema2,
-  SchemaRepresentation
-} from "effect";
-import { HttpApi as HttpApi2, OpenApi as OpenApi2 } from "effect/http-api";
-var JsonObjectSchema = Schema2.Record(Schema2.String, Schema2.Json).annotate({
-  identifier: "HttpJsonObject",
-  title: "HTTP JSON object",
-  description: "A JSON object passed to an HTTP API operation.",
-  examples: [{ id: "example-id" }]
-});
-var JsonObjectFromString = Schema2.fromJsonString(JsonObjectSchema);
-var JsonValueFromString = Schema2.fromJsonString(Schema2.Json);
-var JsonSchemaAnnotations = Schema2.Struct({
-  title: Schema2.optional(Schema2.String),
-  description: Schema2.optional(Schema2.String),
-  examples: Schema2.optional(Schema2.Array(Schema2.Json))
-}).annotate({
-  identifier: "HttpJsonSchemaAnnotations",
-  title: "HTTP JSON Schema annotations",
-  description: "JSON Schema annotations surfaced on generated tool inputs."
-});
-var HttpApiToolInputSchema = Schema2.Struct({
-  body: Schema2.optional(Schema2.Json)
-}).annotate({
-  identifier: "HttpApiToolInput",
-  title: "HTTP API tool input",
-  description: "Input accepted by an HTTP API-backed tool.",
-  examples: [{ body: { id: "example-id" } }]
-});
-var HttpApiMethods = [
-  "get",
-  "post",
-  "put",
-  "patch",
-  "delete"
-];
-var HttpApiOperationSchema = Schema2.declare((value) => Schema2.is(JsonObjectSchema)(value)).annotate({ identifier: "HttpApiOperation" });
-var decodeHttpApiOperation = Schema2.decodeUnknownOption(HttpApiOperationSchema);
-var toHttpError = (message, error) => new Error(message, { cause: error });
-var sanitizeHttpName = (name) => name.replace(/[^a-zA-Z0-9_-]/g, "_").replace(/_+/g, "_").replace(/^_+|_+$/g, "");
-var httpApiToolName = (method, path, operation) => {
-  const fallback = `${method}_${path.replace(/^\/api\//, "").replace(/[/:{}]/g, "_")}`;
-  return (operation.operationId || fallback).replace(/[^a-zA-Z0-9_-]/g, "_").replace(/_+/g, "_").slice(0, 64);
-};
-var httpApiOperations = ({
-  spec,
-  methods = HttpApiMethods
-}) => {
-  const operations = [];
-  for (const [path, pathItem] of Object.entries(spec.paths)) {
-    for (const method of methods) {
-      const operation = decodeHttpApiOperation(pathItem[method]);
-      if (Option.isSome(operation)) {
-        operations.push({ method, path, operation: operation.value });
-      }
-    }
-  }
-  return operations;
-};
-var httpApiToolEntries = Effect2.fn("Http.toolEntries")(function* (operations) {
-  return yield* Effect2.try({
-    try: () => {
-      const names = new Set;
-      return operations.map((entry) => {
-        const name = httpApiToolName(entry.method, entry.path, entry.operation);
-        if (!name || names.has(name)) {
-          throw new Error(`Duplicate or empty HTTP API tool name: ${name}`);
-        }
-        names.add(name);
-        return { ...entry, name };
-      });
-    },
-    catch: (error) => error instanceof Error ? error : new Error(String(error))
-  });
-});
-var decodeAnnotations = Schema2.decodeUnknownOption(JsonSchemaAnnotations);
-var schemaWithVisibleAnnotations = (schema) => {
-  const directAnnotations = decodeAnnotations(schema).pipe(Option.getOrElse(() => ({})));
-  const allOf = Array.isArray(schema.allOf) ? schema.allOf : [];
-  const annotations = allOf.reduce((acc, item) => ({
-    ...acc,
-    ...decodeAnnotations(item).pipe(Option.getOrElse(() => ({})))
-  }), directAnnotations);
-  const visible = { ...schema };
-  if ("title" in annotations && !("title" in schema)) {
-    visible.title = annotations.title;
-  }
-  if ("description" in annotations && !("description" in schema)) {
-    visible.description = annotations.description;
-  }
-  if ("examples" in annotations && !("examples" in schema)) {
-    visible.examples = annotations.examples;
-  }
-  return visible;
-};
-var referencedDefinitions = (schema, definitions) => {
-  const names = new Set;
-  const pending = [Schema2.decodeUnknownSync(Schema2.Json)(schema)];
-  while (pending.length > 0) {
-    const current = pending.pop();
-    if (Array.isArray(current)) {
-      pending.push(...current);
-      continue;
-    }
-    const record = Schema2.decodeUnknownOption(Schema2.Record(Schema2.String, Schema2.Json))(current);
-    if (Option.isNone(record))
-      continue;
-    for (const [key, value] of Object.entries(record.value)) {
-      if (key === "$ref" && Schema2.is(Schema2.String)(value)) {
-        const name = value.match(/^#\/(?:\$defs|components\/schemas)\/(.+)$/)?.[1];
-        if (name && !names.has(name) && definitions[name]) {
-          names.add(name);
-          pending.push(Schema2.decodeUnknownSync(Schema2.Json)(definitions[name]));
-        }
-      } else if (key !== "$defs") {
-        pending.push(value);
-      }
-    }
-  }
-  return Object.fromEntries([...names].map((name) => [name, definitions[name]]));
-};
-var operationParameters = (parameters, location) => parameters.filter((parameter) => parameter.in === location);
-var httpApiOperationInputSchema = (operation) => {
-  const parameters = operation.parameters ?? [];
-  const pathParameters = operationParameters(parameters, "path");
-  const queryParameters = operationParameters(parameters, "query");
-  const headerParameters = operationParameters(parameters, "header");
-  const properties = {};
-  const required = [];
-  const body = operation.requestBody?.content?.["application/json"]?.schema;
-  for (const parameter of [
-    ...pathParameters,
-    ...queryParameters,
-    ...headerParameters
-  ]) {
-    const property = {
-      ...parameter.schema ? schemaWithVisibleAnnotations(parameter.schema) : { type: "string" }
-    };
-    if (parameter.description)
-      property.description = parameter.description;
-    properties[parameter.name] = property;
-    if (parameter.required)
-      required.push(parameter.name);
-  }
-  if (body) {
-    properties.body = body;
-    if (operation.requestBody?.required)
-      required.push("body");
-  }
-  return {
-    type: "object",
-    properties,
-    required,
-    additionalProperties: false
-  };
-};
-var decodeJsonObject = Schema2.decodeUnknownOption(JsonObjectSchema);
-var decodeHttpApiOperationInput = Effect2.fn("Http.decodeApiOperationInput")(function* (input, operation) {
-  const payload = yield* Schema2.decodeUnknownEffect(JsonObjectSchema)(input ?? {}).pipe(Effect2.mapError(() => new Error("Tool input must be a JSON object")));
-  const decoded = yield* Schema2.decodeUnknownEffect(HttpApiToolInputSchema)(payload).pipe(Effect2.mapError(() => new Error("Tool input must be a JSON object")));
-  const parameters = operation.parameters ?? [];
-  const pickParameters = (location) => {
-    const nestedKey = location === "path" ? "params" : location;
-    const nested = decodeJsonObject(payload[nestedKey]).pipe(Option.getOrElse(() => ({})));
-    return Object.fromEntries(operationParameters(parameters, location).map((parameter) => [
-      parameter.name,
-      nested[parameter.name] ?? payload[parameter.name]
-    ]).filter(([, value]) => value !== undefined));
-  };
-  return {
-    ...decoded,
-    headers: pickParameters("header"),
-    params: pickParameters("path"),
-    query: pickParameters("query")
-  };
-});
-var reflectedSchema2 = (schema) => Schema2.make(schema.ast);
-var reflectedOperationInputSchemas = (api) => {
-  const schemas = new Map;
-  HttpApi2.reflect(api, {
-    onGroup: () => {
-      return;
-    },
-    onEndpoint: ({ endpoint, group }) => {
-      const operationId = Context2.getOrElse(endpoint.annotations, OpenApi2.Identifier, () => group.topLevel ? endpoint.identifier : `${group.identifier}.${endpoint.identifier}`);
-      const fields = {};
-      if (endpoint.params)
-        fields.params = reflectedSchema2(endpoint.params);
-      if (endpoint.query) {
-        fields.query = Schema2.optionalKey(reflectedSchema2(endpoint.query));
-      }
-      if (endpoint.headers) {
-        fields.headers = Schema2.optionalKey(reflectedSchema2(endpoint.headers));
-      }
-      const payloadSchemas = Array.from(endpoint.payload.values()).flatMap(({ schemas: schemas2 }) => schemas2.map(reflectedSchema2));
-      if (payloadSchemas.length === 1 && payloadSchemas[0]) {
-        fields.body = payloadSchemas[0];
-      } else if (payloadSchemas.length > 1) {
-        fields.body = Schema2.Union(payloadSchemas);
-      }
-      const inputSchema = Object.keys(fields).length === 0 ? Schema2.Record(Schema2.String, Schema2.Never) : Schema2.Struct(fields);
-      schemas.set(operationId, inputSchema.annotate({
-        identifier: `${sanitizeHttpName(operationId)}ToolInput`
-      }));
-    }
-  });
-  return schemas;
-};
-var parseJsonObject = Effect2.fn("Http.parseJsonObject")(function* (value, label) {
-  if (!value)
-    return {};
-  return yield* Schema2.decodeUnknownEffect(JsonObjectFromString)(value).pipe(Effect2.mapError(() => new Error(`${label} must be a JSON object`)));
-});
-var parseJsonValue = Effect2.fn("Http.parseJsonValue")(function* (value, label) {
-  if (!value)
-    return;
-  return yield* Schema2.decodeUnknownEffect(JsonValueFromString)(value).pipe(Effect2.mapError(() => new Error(`${label} must be valid JSON`)));
-});
-
-class HttpApiSpec extends Context2.Service()("HttpApiSpec", {
-  make: (config) => Effect2.try({
-    try: () => {
-      const api = config.api;
-      if (!HttpApi2.isHttpApi(api)) {
-        throw new Error("HttpApiSpec requires a valid HttpApi");
-      }
-      const spec = OpenApi2.fromApi(api);
-      const reflectedSchemas = reflectedOperationInputSchemas(api);
-      const operations = httpApiOperations({
-        spec,
-        methods: config.methods
-      }).filter((operation) => config.include?.(operation) ?? true);
-      const operationJsonSchema = (operation) => {
-        const schema = httpApiOperationInputSchema(operation);
-        const document = JsonSchema.fromSchemaOpenApi3_1({
-          ...schema,
-          $defs: spec.components?.schemas
-        });
-        const definitions = document.definitions ?? {};
-        const usedDefinitions = referencedDefinitions(document.schema, definitions);
-        const result = { ...document.schema };
-        if (Object.keys(usedDefinitions).length > 0) {
-          result.$defs = usedDefinitions;
-        }
-        return result;
-      };
-      return {
-        info: spec.info,
-        operations,
-        decodeOperationInput: decodeHttpApiOperationInput,
-        operationJsonSchema,
-        operationSchema: (operation) => {
-          const reflected = operation.operationId ? reflectedSchemas.get(operation.operationId) : undefined;
-          if (reflected)
-            return reflected;
-          const document = JsonSchema.fromSchemaOpenApi3_1(operationJsonSchema(operation));
-          return reflectedSchema2(SchemaRepresentation.fromJsonSchemaDocument(document));
-        }
-      };
-    },
-    catch: (error) => toHttpError("Failed to build HTTP API spec", error)
-  })
-}) {
-  static layer = (config) => Layer2.effect(this, this.make(config));
-}
-
-// ../../src/lib/httpapi-mcp.ts
-class HttpApiMcp extends Context3.Service()("HttpApiMcp", {
-  make: (config) => Effect3.gen(function* () {
-    const spec = yield* HttpApiSpec;
-    const client = yield* ApiClient;
-    return {
-      registerTools: registerHttpApiTools(spec, client, config)
-    };
-  })
-}) {
-  static layer = (config) => Layer3.effect(this, this.make(config));
-}
-var decodeStructuredContent = Schema3.decodeUnknownOption(JsonObjectSchema);
-var structuredContent = (value) => decodeStructuredContent(value).pipe(Option2.getOrElse(() => ({ result: value ?? null })));
-var toolResult = (value) => new McpSchema.CallToolResult({
-  isError: false,
-  structuredContent: structuredContent(value),
-  content: [{ type: "text", text: JSON.stringify(value, null, 2) ?? "null" }]
-});
-var toolError = (error) => new McpSchema.CallToolResult({
-  isError: true,
-  content: [
-    {
-      type: "text",
-      text: error instanceof Error ? error.message : String(error)
-    }
-  ]
-});
-var executeOperation = Effect3.fn("HttpApiMcp.executeOperation")(function* (method, path, operation, input, spec, client) {
-  const payload = yield* spec.decodeOperationInput(input, operation);
-  const result = yield* client.execute({
-    operation: { method, path, operation },
-    input: {
-      body: payload.body,
-      headers: payload.headers,
-      params: payload.params,
-      query: payload.query
-    }
-  });
-  return yield* client.encodeResult(result, { method, path, operation });
-});
-var registerOperation = (method, path, operation, name, config, spec, client) => Effect3.gen(function* () {
-  const server = yield* McpServer.McpServer;
-  yield* server.addTool({
-    tool: new McpSchema.Tool({
-      name,
-      title: operation.summary,
-      description: operation.description ?? operation.summary,
-      inputSchema: spec.operationJsonSchema(operation),
-      annotations: {
-        readOnlyHint: method.toUpperCase() === "GET",
-        destructiveHint: method === "delete",
-        idempotentHint: method === "get" || method === "put" || method === "delete",
-        openWorldHint: false
-      },
-      _meta: {
-        [config.toolMetaKey ?? "api/operation"]: {
-          method: method.toUpperCase(),
-          path
-        }
-      }
-    }),
-    annotations: Context3.empty(),
-    handle: (payload) => executeOperation(method, path, operation, payload, spec, client).pipe(Effect3.match({
-      onFailure: toolError,
-      onSuccess: toolResult
-    }))
-  });
-});
-var registerHttpApiTools = (spec, client, config) => Effect3.gen(function* () {
-  const entries = yield* httpApiToolEntries(spec.operations);
-  for (const { method, name, operation, path } of entries) {
-    yield* registerOperation(method, path, operation, name, config, spec, client);
-  }
-});
-var httpApiMcpToolsLayer = Layer3.effectDiscard(Effect3.gen(function* () {
-  const mcp = yield* HttpApiMcp;
-  yield* mcp.registerTools;
-}));
-var httpApiMcpServerLayer = (path) => Layer3.unwrap(Effect3.gen(function* () {
-  const spec = yield* HttpApiSpec;
-  return McpServer.layerHttp({
-    name: spec.info.title,
-    version: spec.info.version,
-    path,
-    protocols: [McpProtocol.v2025_11_25]
-  });
-}));
-export {
-  HttpApiMcp,
-  httpApiMcpServerLayer,
-  httpApiMcpToolsLayer
-};