export const Tag =
  <Self>() =>
  <
    Key extends Schema.Top,
    Value extends Schema.Top,
    Error extends Schema.Top = typeof Schema.Never,
  >(
    key: string,
    schemas: ShardMapSchemas<Key, Value, Error>,
  ): ShardMapTag<Self, Key, Value, Error> => {
    const error =
      schemas.error === undefined ? Schema.Never : schemas.error;
    const spec = buildShardMapSpec(schemas.key, schemas.value, error);
    const tag =
      schemas.node === undefined
        ? resourceTag<Self>()(key, spec, {
            kind,
            description: schemas.description,
          })
        : resourceTag<Self>()(key, spec, {
            kind,
            description: schemas.description,
            node: schemas.node,
          });
    // SAFE: HyperlinkTag + schema stamps = ShardMapTag; Spec/Symbol identity is opaque under Top
    // (same boundary as WorkPool's `nameQueueService`).
    return Object.assign(tag, {
      [internal.keySchemaSym]: schemas.key,
      [internal.valueSchemaSym]: schemas.value,
      [internal.keyOfSym]: schemas.keyOf,
    }) as unknown as ShardMapTag<Self, Key, Value, Error>;
  };