0.1.13 #18
@@ -1,4 +1,5 @@
|
||||
import { type Cause, type Context, Effect, Layer, Queue, Stream } from "effect"
|
||||
import { type Cause, Context, Effect, Layer, Queue, Stream } from "effect"
|
||||
import type { Mutable } from "effect/Types"
|
||||
|
||||
|
||||
export interface ErrorHandler<E> {
|
||||
@@ -9,13 +10,14 @@ export interface ErrorHandler<E> {
|
||||
export type Error<T> = T extends ErrorHandler<infer E> ? E : never
|
||||
|
||||
|
||||
export const Tag = <const Id extends string>(id: Id) => <
|
||||
Self, E = never,
|
||||
>() => Effect.Tag(id)<Self, ErrorHandler<E>>()
|
||||
export interface ServiceResult<Self, Id extends string, E> extends Context.TagClass<Self, Id, ErrorHandler<E>> {
|
||||
readonly Live: Layer.Layer<Self>
|
||||
}
|
||||
|
||||
export const layer = <Self, Id extends string, E>(
|
||||
tag: Context.TagClass<Self, Id, ErrorHandler<E>>
|
||||
): Layer.Layer<Self> => Layer.effect(tag, Effect.gen(function*() {
|
||||
export const Service = <const Id extends string>(id: Id) => (
|
||||
<Self, E = never>(): ServiceResult<Self, Id, E> => {
|
||||
const TagClass = Context.Tag(id)() as ServiceResult<Self, Id, E>
|
||||
(TagClass as Mutable<typeof TagClass>).Live = Layer.effect(TagClass, Effect.gen(function*() {
|
||||
const queue = yield* Queue.unbounded<Cause.Cause<E>>()
|
||||
const errors = Stream.fromQueue(queue)
|
||||
|
||||
@@ -26,8 +28,10 @@ export const layer = <Self, Id extends string, E>(
|
||||
) as Effect.Effect<A, Exclude<SelfE, E>, R>
|
||||
|
||||
return { errors, handle }
|
||||
}))
|
||||
}))
|
||||
return TagClass
|
||||
}
|
||||
)
|
||||
|
||||
|
||||
export class DefaultErrorHandler extends Tag("@reffuse/extension-query/DefaultErrorHandler")<DefaultErrorHandler>() {}
|
||||
export const DefaultErrorHandlerLive = layer(DefaultErrorHandler)
|
||||
export class DefaultErrorHandler extends Service("@reffuse/extension-query/DefaultErrorHandler")<DefaultErrorHandler>() {}
|
||||
|
||||
@@ -8,18 +8,18 @@ export interface QueryClient<EH, HandledE> {
|
||||
}
|
||||
|
||||
|
||||
const Id = "@reffuse/extension-query/QueryClient"
|
||||
const id = "@reffuse/extension-query/QueryClient"
|
||||
|
||||
export type TagClassShape<EH, HandledE> = Context.TagClassShape<typeof Id, QueryClient<EH, HandledE>>
|
||||
export type GenericTagClass<EH, HandledE> = Context.TagClass<TagClassShape<EH, HandledE>, typeof Id, QueryClient<EH, HandledE>>
|
||||
export const makeGenericTagClass = <EH = never, HandledE = never>() => Context.GenericTag(Id) as GenericTagClass<EH, HandledE>
|
||||
export type TagClassShape<EH, HandledE> = Context.TagClassShape<typeof id, QueryClient<EH, HandledE>>
|
||||
export type GenericTagClass<EH, HandledE> = Context.TagClass<TagClassShape<EH, HandledE>, typeof id, QueryClient<EH, HandledE>>
|
||||
export const makeGenericTagClass = <EH = never, HandledE = never>() => Context.GenericTag(id) as GenericTagClass<EH, HandledE>
|
||||
|
||||
|
||||
export interface ServiceProps<EH, HandledE> {
|
||||
readonly ErrorHandler?: Context.Tag<EH, ErrorHandler.ErrorHandler<HandledE>>
|
||||
}
|
||||
|
||||
export interface ServiceResult<Self, EH, HandledE> extends Context.TagClass<Self, typeof Id, QueryClient<EH, HandledE>> {
|
||||
export interface ServiceResult<Self, EH, HandledE> extends Context.TagClass<Self, typeof id, QueryClient<EH, HandledE>> {
|
||||
readonly Live: Layer.Layer<
|
||||
| Self
|
||||
| (EH extends ErrorHandler.DefaultErrorHandler
|
||||
@@ -35,7 +35,7 @@ export const Service = <
|
||||
props?: ServiceProps<EH, HandledE>
|
||||
) => (
|
||||
<Self>(): ServiceResult<Self, EH, HandledE> => {
|
||||
const TagClass = Context.Tag(Id)() as ServiceResult<Self, EH, HandledE>
|
||||
const TagClass = Context.Tag(id)() as ServiceResult<Self, EH, HandledE>
|
||||
(TagClass as Mutable<typeof TagClass>).Live = Layer.empty.pipe(
|
||||
Layer.provideMerge(
|
||||
Layer.succeed(TagClass, {
|
||||
@@ -45,7 +45,7 @@ export const Service = <
|
||||
|
||||
Layer.provideMerge((props?.ErrorHandler
|
||||
? Layer.empty
|
||||
: ErrorHandler.DefaultErrorHandlerLive
|
||||
: ErrorHandler.DefaultErrorHandler.Live
|
||||
) as Layer.Layer<ErrorHandler.DefaultErrorHandler>),
|
||||
)
|
||||
return TagClass
|
||||
|
||||
Reference in New Issue
Block a user