Kit Langton
60 lines
2.4 KiB
TypeScript
60 lines
2.4 KiB
TypeScript
import { Effect, Exit, Fiber } from "effect"
|
|
import { WorkspaceContext } from "@/control-plane/workspace-context"
|
|
import { Instance, type InstanceContext } from "@/project/instance"
|
|
import type { WorkspaceID } from "@/control-plane/schema"
|
|
import { LocalContext } from "@/util/local-context"
|
|
import { InstanceRef, WorkspaceRef } from "./instance-ref"
|
|
import { attachWith } from "./run-service"
|
|
|
|
export interface Shape {
|
|
readonly promise: <A, E, R>(effect: Effect.Effect<A, E, R>) => Promise<A>
|
|
readonly fork: <A, E, R>(effect: Effect.Effect<A, E, R>) => Fiber.Fiber<A, E>
|
|
readonly run: <A, E, R>(effect: Effect.Effect<A, E, R>) => Effect.Effect<A, E>
|
|
}
|
|
|
|
function restore<R>(instance: InstanceContext | undefined, workspace: WorkspaceID | undefined, fn: () => R): R {
|
|
if (instance && workspace !== undefined) {
|
|
return WorkspaceContext.restore(workspace, () => Instance.restore(instance, fn))
|
|
}
|
|
if (instance) return Instance.restore(instance, fn)
|
|
if (workspace !== undefined) return WorkspaceContext.restore(workspace, fn)
|
|
return fn()
|
|
}
|
|
|
|
export function make(): Effect.Effect<Shape> {
|
|
return Effect.gen(function* () {
|
|
const ctx = yield* Effect.context()
|
|
const value = yield* InstanceRef
|
|
const instance =
|
|
value ??
|
|
(() => {
|
|
try {
|
|
return Instance.current
|
|
} catch (err) {
|
|
if (!(err instanceof LocalContext.NotFound)) throw err
|
|
}
|
|
})()
|
|
const workspace = (yield* WorkspaceRef) ?? WorkspaceContext.workspaceID
|
|
const attach = <A, E, R>(effect: Effect.Effect<A, E, R>) => attachWith(effect, { instance, workspace })
|
|
const wrap = <A, E, R>(effect: Effect.Effect<A, E, R>) =>
|
|
attach(effect).pipe(Effect.provide(ctx)) as Effect.Effect<A, E, never>
|
|
|
|
return {
|
|
promise: <A, E, R>(effect: Effect.Effect<A, E, R>) =>
|
|
restore(instance, workspace, () => Effect.runPromise(wrap(effect))),
|
|
fork: <A, E, R>(effect: Effect.Effect<A, E, R>) =>
|
|
restore(instance, workspace, () => Effect.runFork(wrap(effect))),
|
|
run: <A, E, R>(effect: Effect.Effect<A, E, R>) =>
|
|
Effect.callback<A, E>((resume) => {
|
|
restore(instance, workspace, () =>
|
|
Effect.runPromiseExit(wrap(effect)).then((exit) =>
|
|
resume(Exit.isSuccess(exit) ? Effect.succeed(exit.value) : Effect.failCause(exit.cause)),
|
|
),
|
|
)
|
|
}),
|
|
} satisfies Shape
|
|
})
|
|
}
|
|
|
|
export * as EffectBridge from "./bridge"
|