@effect/cluster 0.28.4 → 0.29.0

package/src/SerializedMessage.ts

@@ -1,82 +0,0 @@
-/**
- * @since 1.0.0
- */
-import * as Schema from "effect/Schema"
-import { TypeIdSchema } from "./internal/utils.js"
-
-/** @internal */
-const SerializedMessageSymbolKey = "@effect/cluster/SerializedMessage"
-
-/**
- * @since 1.0.0
- * @category symbols
- */
-export const SerializedMessageTypeId: unique symbol = Symbol.for(SerializedMessageSymbolKey)
-
-/**
- * @since 1.0.0
- * @category symbols
- */
-export type SerializedMessageTypeId = typeof SerializedMessageTypeId
-
-/** @internal */
-const SerializedMessageTypeIdSchema = TypeIdSchema(SerializedMessageSymbolKey, SerializedMessageTypeId)
-
-/**
- * Represents a Message that has been serialized.
- *
- * @since 1.0.0
- * @category models
- */
-export class SerializedMessage extends Schema.Class<SerializedMessage>(SerializedMessageSymbolKey)({
-  [SerializedMessageTypeId]: Schema.propertySignature(SerializedMessageTypeIdSchema).pipe(
-    Schema.fromKey(SerializedMessageSymbolKey)
-  ),
-  value: Schema.String
-}) {}
-
-/**
- * @since 1.0.0
- * @category models
- */
-export namespace SerializedMessage {
-  /**
-   * @since 1.0.0
-   * @category models
-   */
-  export interface Encoded extends Schema.Schema.Encoded<typeof SerializedMessage> {}
-}
-
-/**
- * Construct a new `SerializedMessage` from its internal string value.
- *
- * @since 1.0.0
- * @category constructors
- */
-export function make(value: string): SerializedMessage {
-  return new SerializedMessage({ [SerializedMessageTypeId]: SerializedMessageTypeId, value })
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export function isSerializedMessage(value: unknown): value is SerializedMessage {
-  return (
-    typeof value === "object" &&
-    value !== null &&
-    SerializedMessageTypeId in value &&
-    value[SerializedMessageTypeId] === SerializedMessageTypeId
-  )
-}
-
-/**
- * This is the schema for a value.
- *
- * @since 1.0.0
- * @category schema
- */
-export const schema: Schema.Schema<
-  SerializedMessage,
-  SerializedMessage.Encoded
-> = Schema.asSchema(SerializedMessage)

package/src/ShardManagerClient.ts

@@ -1,57 +0,0 @@
-/**
- * @since 1.0.0
- */
-import type * as Context from "effect/Context"
-import type * as Effect from "effect/Effect"
-import type * as HashMap from "effect/HashMap"
-import type * as Layer from "effect/Layer"
-import type * as Option from "effect/Option"
-import * as internal from "./internal/shardManagerClient.js"
-import type * as PodAddress from "./PodAddress.js"
-import type * as ShardId from "./ShardId.js"
-import type * as ShardingConfig from "./ShardingConfig.js"
-
-/**
- * @since 1.0.0
- * @category symbols
- */
-export const ShardManagerClientTypeId: unique symbol = internal.ShardManagerClientTypeId
-
-/**
- * @since 1.0.0
- * @category models
- */
-export type ShardManagerClientTypeId = typeof ShardManagerClientTypeId
-
-/**
- * ShardManagerClient provides the methods exposed by the ShardManager and called by the Pod.
- *
- * @since 1.0.0
- * @category models
- */
-export interface ShardManagerClient {
-  readonly [ShardManagerClientTypeId]: ShardManagerClientTypeId
-  readonly register: (podAddress: PodAddress.PodAddress) => Effect.Effect<void>
-  readonly unregister: (podAddress: PodAddress.PodAddress) => Effect.Effect<void>
-  readonly notifyUnhealthyPod: (podAddress: PodAddress.PodAddress) => Effect.Effect<void>
-  readonly getAssignments: Effect.Effect<HashMap.HashMap<ShardId.ShardId, Option.Option<PodAddress.PodAddress>>>
-}
-
-/**
- * @since 1.0.0
- * @category constructors
- */
-export const make: (args: Omit<ShardManagerClient, typeof ShardManagerClientTypeId>) => ShardManagerClient =
-  internal.make
-
-/**
- * @since 1.0.0
- * @category context
- */
-export const ShardManagerClient: Context.Tag<ShardManagerClient, ShardManagerClient> = internal.shardManagerClientTag
-
-/**
- * @since 1.0.0
- * @category layers
- */
-export const local: Layer.Layer<ShardManagerClient, never, ShardingConfig.ShardingConfig> = internal.local

package/src/ShardingEvent.ts

@@ -1,121 +0,0 @@
-/**
- * @since 1.0.0
- */
-import type * as HashSet from "effect/HashSet"
-import type * as PodAddress from "./PodAddress.js"
-import type * as ShardId from "./ShardId.js"
-
-/**
- * @since 1.0.0
- * @category models
- */
-export interface ShardsAssigned {
-  readonly _tag: "ShardsAssigned"
-  readonly pod: PodAddress.PodAddress
-  readonly shards: HashSet.HashSet<ShardId.ShardId>
-}
-
-/**
- * Constructs the event that occurs when new shards are assigned to Pod.
- *
- * @since 1.0.0
- * @category constructors
- */
-export function ShardsAssigned(
-  pod: PodAddress.PodAddress,
-  shards: HashSet.HashSet<ShardId.ShardId>
-): ShardsAssigned {
-  return { _tag: "ShardsAssigned", pod, shards }
-}
-
-/**
- * @since 1.0.0
- * @category models
- */
-export interface ShardsUnassigned {
-  readonly _tag: "ShardsUnassigned"
-  readonly pod: PodAddress.PodAddress
-  readonly shards: HashSet.HashSet<ShardId.ShardId>
-}
-
-/**
- * Constructs the event that occurs when shards are unassigned to a Pod
- * @since 1.0.0
- * @category constructors
- */
-export function ShardsUnassigned(
-  pod: PodAddress.PodAddress,
-  shards: HashSet.HashSet<ShardId.ShardId>
-): ShardsUnassigned {
-  return { _tag: "ShardsUnassigned", pod, shards }
-}
-
-/**
- * @since 1.0.0
- * @category models
- */
-export interface PodHealthChecked {
-  readonly _tag: "PodHealthChecked"
-  readonly pod: PodAddress.PodAddress
-}
-
-/**
- * Constructs the event that occurs when the health of a Pod has been checked
- *
- * @since 1.0.0
- * @category constructors
- */
-export function PodHealthChecked(pod: PodAddress.PodAddress): PodHealthChecked {
-  return { _tag: "PodHealthChecked", pod }
-}
-
-/**
- * @since 1.0.0
- * @category models
- */
-export interface PodRegistered {
-  readonly _tag: "PodRegistered"
-  readonly pod: PodAddress.PodAddress
-}
-
-/**
- * Constructs the event that occurs when a new Pod has registered
- *
- * @since 1.0.0
- * @category constructors
- */
-export function PodRegistered(pod: PodAddress.PodAddress): PodRegistered {
-  return { _tag: "PodRegistered", pod }
-}
-
-/**
- * @since 1.0.0
- * @category models
- */
-export interface PodUnregistered {
-  readonly _tag: "PodUnregistered"
-  readonly pod: PodAddress.PodAddress
-}
-
-/**
- * Constructs the event that occurs when a pod has unregistered
- *
- * @since 1.0.0
- * @category constructors
- */
-export function PodUnregistered(pod: PodAddress.PodAddress): PodUnregistered {
-  return { _tag: "PodUnregistered", pod }
-}
-
-/**
- * This are the events that may occur over the ShardManager during its lifetime.
- *
- * @since 1.0.0
- * @category models
- */
-export type ShardingEvent =
-  | ShardsAssigned
-  | ShardsUnassigned
-  | PodHealthChecked
-  | PodRegistered
-  | PodUnregistered

package/src/ShardingException.ts

@@ -1,151 +0,0 @@
-/**
- * @since 1.0.0
- */
-import * as Schema from "effect/Schema"
-import * as PodAddress from "./PodAddress.js"
-import * as RecipientAddress from "./RecipientAddress.js"
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class EntityNotManagedByThisPodException extends Schema.TaggedError<EntityNotManagedByThisPodException>()(
-  "@effect/cluster/EntityNotManagedByThisPodException",
-  {
-    recipientAddress: RecipientAddress.RecipientAddress
-  }
-) {
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isEntityNotManagedByThisPodException = Schema.is(EntityNotManagedByThisPodException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class EntityTypeNotRegisteredException extends Schema.TaggedError<EntityTypeNotRegisteredException>()(
-  "@effect/cluster/EntityTypeNotRegisteredException",
-  {
-    entityType: Schema.String,
-    podAddress: PodAddress.schema
-  }
-) {
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isEntityTypeNotRegisteredException = Schema.is(EntityTypeNotRegisteredException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class NoResultInProcessedMessageStateException
-  extends Schema.TaggedError<NoResultInProcessedMessageStateException>()(
-    "@effect/cluster/NoResultInProcessedMessageStateException",
-    {}
-  )
-{
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isNoResultInProcessedMessageStateException = Schema.is(NoResultInProcessedMessageStateException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class PodNoLongerRegisteredException extends Schema.TaggedError<PodNoLongerRegisteredException>()(
-  "@effect/cluster/PodNoLongerRegisteredException",
-  {
-    podAddress: PodAddress.schema
-  }
-) {
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isPodNoLongerRegisteredException = Schema.is(PodNoLongerRegisteredException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class PodUnavailableException extends Schema.TaggedError<PodUnavailableException>()(
-  "@effect/cluster/PodUnavailableException",
-  {
-    podAddress: PodAddress.schema
-  }
-) {
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isPodUnavailableException = Schema.is(PodUnavailableException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class SerializationException extends Schema.TaggedError<SerializationException>()(
-  "@effect/cluster/SerializationException",
-  {}
-) {
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isSerializationException = Schema.is(SerializationException)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export class ExceptionWhileOfferingMessageException
-  extends Schema.TaggedError<ExceptionWhileOfferingMessageException>()(
-    "@effect/cluster/ExceptionWhileOfferingMessageException",
-    {}
-  )
-{
-}
-
-/**
- * @since 1.0.0
- * @category utils
- */
-export const isExceptionWhileOfferingMessageException = Schema.is(ExceptionWhileOfferingMessageException)
-
-/**
- * @since 1.0.0
- * @category schema
- */
-export const schema = Schema.Union(
-  SerializationException,
-  EntityNotManagedByThisPodException,
-  EntityTypeNotRegisteredException,
-  PodNoLongerRegisteredException,
-  PodUnavailableException,
-  NoResultInProcessedMessageStateException,
-  ExceptionWhileOfferingMessageException
-)
-
-/**
- * @since 1.0.0
- * @category models
- */
-export type ShardingException = Schema.Schema.Type<typeof schema>

package/src/Storage.ts

@@ -1,92 +0,0 @@
-/**
- * @since 1.0.0
- */
-import type * as Context from "effect/Context"
-import type * as Effect from "effect/Effect"
-import type * as HashMap from "effect/HashMap"
-import type * as Layer from "effect/Layer"
-import type * as Option from "effect/Option"
-import type * as Stream from "effect/Stream"
-import * as internal from "./internal/storage.js"
-import type * as Pod from "./Pod.js"
-import type * as PodAddress from "./PodAddress.js"
-import type * as ShardId from "./ShardId.js"
-
-/**
- * @since 1.0.0
- * @category symbols
- */
-export const StorageTypeId: unique symbol = internal.StorageTypeId
-
-/**
- * @since 1.0.0
- * @category symbols
- */
-export type StorageTypeId = typeof StorageTypeId
-
-/**
- * The storage Service is responsible of persisting assignments and registered pods.
- * The storage is expected to be shared among all pods, so it works also as communication of assignments between Pods.
- *
- * @since 1.0.0
- * @category models
- */
-export interface Storage {
-  readonly [StorageTypeId]: StorageTypeId
-
-  /**
-   * Get the current state of shard assignments to pods
-   */
-  readonly getAssignments: Effect.Effect<HashMap.HashMap<ShardId.ShardId, Option.Option<PodAddress.PodAddress>>>
-
-  /**
-   * Save the current state of shard assignments to pods
-   */
-  readonly saveAssignments: (
-    assignments: HashMap.HashMap<ShardId.ShardId, Option.Option<PodAddress.PodAddress>>
-  ) => Effect.Effect<void>
-
-  /**
-   * A stream that will emit the state of shard assignments whenever it changes
-   */
-  readonly assignmentsStream: Stream.Stream<HashMap.HashMap<ShardId.ShardId, Option.Option<PodAddress.PodAddress>>>
-
-  /**
-   * Get the list of existing pods
-   */
-  readonly getPods: Effect.Effect<HashMap.HashMap<PodAddress.PodAddress, Pod.Pod>>
-
-  /**
-   * Save the list of existing pods
-   */
-  readonly savePods: (pods: HashMap.HashMap<PodAddress.PodAddress, Pod.Pod>) => Effect.Effect<void>
-}
-
-/**
- * @since 1.0.0
- * @category constructors
- */
-export const make: (args: Omit<Storage, typeof StorageTypeId>) => Storage = internal.make
-
-/**
- * @since 1.0.0
- * @category context
- */
-export const Storage: Context.Tag<Storage, Storage> = internal.storageTag
-
-/**
- * A layer that stores data in-memory.
- * This is useful for testing with a single pod only.
- *
- * @since 1.0.0
- * @category layers
- */
-export const memory: Layer.Layer<Storage> = internal.memory
-
-/**
- * A layer that does nothing, useful for testing.
- *
- * @since 1.0.0
- * @category layers
- */
-export const noop: Layer.Layer<Storage> = internal.noop

package/src/internal/atLeastOnce.ts

@@ -1,59 +0,0 @@
-import type * as Duration from "effect/Duration"
-import * as Effect from "effect/Effect"
-import { pipe } from "effect/Function"
-import type * as Scope from "effect/Scope"
-import * as Stream from "effect/Stream"
-import * as AtLeastOnceStorage from "../AtLeastOnceStorage.js"
-import type * as Message from "../Message.js"
-import * as MessageState from "../MessageState.js"
-import type * as RecipientBehaviour from "../RecipientBehaviour.js"
-import * as RecipientBehaviourContext from "../RecipientBehaviourContext.js"
-import * as Sharding from "../Sharding.js"
-
-/** @internal */
-export function runPendingMessageSweeperScoped(
-  interval: Duration.Duration
-): Effect.Effect<void, never, AtLeastOnceStorage.AtLeastOnceStorage | Sharding.Sharding | Scope.Scope> {
-  return Effect.flatMap(AtLeastOnceStorage.AtLeastOnceStorage, (storage) =>
-    pipe(
-      Sharding.getAssignedShardIds,
-      Effect.flatMap((shardIds) =>
-        pipe(
-          storage.sweepPending(shardIds),
-          Stream.mapEffect((envelope) => Sharding.sendMessageToLocalEntityManagerWithoutRetries(envelope)),
-          Stream.runDrain
-        )
-      ),
-      Effect.delay(interval),
-      Effect.catchAllCause(Effect.logError),
-      Effect.forever,
-      Effect.forkScoped,
-      Effect.asVoid
-    ))
-}
-
-/** @internal */
-export function atLeastOnceRecipientBehaviour<Msg extends Message.Message.Any, R>(
-  fa: RecipientBehaviour.RecipientBehaviour<Msg, R>
-): RecipientBehaviour.RecipientBehaviour<Msg, R | AtLeastOnceStorage.AtLeastOnceStorage> {
-  return Effect.gen(function*() {
-    const storage = yield* AtLeastOnceStorage.AtLeastOnceStorage
-    const entityId = yield* RecipientBehaviourContext.entityId
-    const shardId = yield* RecipientBehaviourContext.shardId
-    const recipientType = yield* RecipientBehaviourContext.recipientType
-    const offer = yield* fa
-    return <A extends Msg>(message: A) =>
-      pipe(
-        storage.upsert(recipientType, shardId, entityId, message),
-        Effect.zipRight(
-          pipe(
-            offer(message),
-            Effect.tap(MessageState.match({
-              onAcknowledged: () => Effect.void,
-              onProcessed: () => storage.markAsProcessed(recipientType, shardId, entityId, message)
-            }))
-          )
-        )
-      )
-  })
-}