@typed/fx 0.0.1

package/esm/Platform/TestPlatform.js

@@ -0,0 +1,9 @@
+import { Platform } from './Platform.js';
+import { TestTimer } from '@/Timer/TestTimer.js';
+export function TestPlatform(timer = TestTimer()) {
+    return {
+        ...Platform(undefined, undefined, undefined, timer),
+        timer,
+    };
+}
+//# sourceMappingURL=TestPlatform.js.map

package/esm/Platform/TestPlatform.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"TestPlatform.js","sourceRoot":"","sources":["../../src/Platform/TestPlatform.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,QAAQ,EAAE,MAAM,eAAe,CAAA;AAExC,OAAO,EAAE,SAAS,EAAE,MAAM,sBAAsB,CAAA;AAMhD,MAAM,UAAU,YAAY,CAAC,QAAmB,SAAS,EAAE;IACzD,OAAO;QACL,GAAG,QAAQ,CAAC,SAAS,EAAE,SAAS,EAAE,SAAS,EAAE,KAAK,CAAC;QACnD,KAAK;KACN,CAAA;AACH,CAAC"}

package/esm/Platform/index.d.ts

@@ -0,0 +1,3 @@
+export * from './Platform.js';
+export * from './TestPlatform.js';
+//# sourceMappingURL=index.d.ts.map

package/esm/Platform/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/Platform/index.ts"],"names":[],"mappings":"AAAA,cAAc,eAAe,CAAA;AAC7B,cAAc,mBAAmB,CAAA"}

package/esm/Platform/index.js

@@ -0,0 +1,3 @@
+export * from './Platform.js';
+export * from './TestPlatform.js';
+//# sourceMappingURL=index.js.map

package/esm/Platform/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/Platform/index.ts"],"names":[],"mappings":"AAAA,cAAc,eAAe,CAAA;AAC7B,cAAc,mBAAmB,CAAA"}

package/esm/Ref/Ref.d.ts

@@ -0,0 +1,40 @@
+import { Eq } from 'hkt-ts/Typeclass/Eq';
+import * as Fx from '@/Fx/index.js';
+import { InstanceOf } from '@/Service/index.js';
+export interface RefApi<R, E, A> {
+    readonly get: Fx.Fx<R, E, A>;
+    readonly modify: <R2, E2, B>(f: (a: A) => Fx.Fx<R2, E2, readonly [B, A]>) => Fx.Fx<R | R2, E | E2, B>;
+}
+export declare type AnyRefApi = RefApi<any, any, any> | RefApi<never, never, any> | RefApi<never, any, any> | RefApi<any, never, any>;
+export declare type Ref<R, E, A> = ReturnType<typeof Ref<any, R, E, A>>;
+export declare type AnyRef = Ref<any, any, any> | Ref<never, never, any> | Ref<never, any, any> | Ref<any, never, any>;
+export declare type ResourcesOf<T> = T extends Ref<infer _R, infer _E, infer _A> ? _R : never;
+export declare type ErrorsOf<T> = T extends Ref<infer _R, infer _E, infer _A> ? _E : never;
+export declare type OutputOf<T> = T extends Ref<infer _R, infer _E, infer _A> ? _A : never;
+export declare function Ref<Tag extends string, R, E, A>(tag: Tag, initial: Fx.Fx<R, E, A>, Eq?: Eq<A>): {
+    new (get: RefApi<R, E, A>['get'], modify: RefApi<R, E, A>['modify']): {
+        readonly tag: Tag;
+        readonly get: RefApi<R, E, A>['get'];
+        readonly modify: RefApi<R, E, A>['modify'];
+        readonly name: string;
+        readonly id: import("@/Service/index.js").Service<any>;
+    };
+    tag: Tag;
+    initial: Fx.Fx<R, E, A>;
+    Eq: Eq<A>;
+    make<S extends AnyRef>(this: S, get: RefApi<R, E, A>['get'], modify: RefApi<R, E, A>['modify']): InstanceOf<S>;
+    get<S_1 extends any>(this: S_1): Fx.Fx<R | InstanceOf<S_1>, E, A>;
+    modify<S_2 extends any, B, R2, E2>(this: S_2, f: (a: A) => Fx.Fx<R2, E2, readonly [B, A]>): Fx.Fx<R | R2 | InstanceOf<S_2>, E | E2, B>;
+    id<S_3 extends {
+        readonly name: string;
+    }>(this: S_3): import("@/Service/index.js").Service<InstanceOf<S_3>>;
+    ask<S_4 extends {
+        new (...args: any): any;
+        readonly id: () => import("@/Service/index.js").Service<any>;
+    }>(this: S_4): Fx.RIO<InstanceOf<S_4>, InstanceOf<S_4>>;
+    layer<S_5 extends {
+        new (...args: any): any;
+        readonly id: () => import("@/Service/index.js").Service<any>;
+    }, R_1, E_1>(this: S_5, provider: Fx.Fx<import("../Scope/Scope.js").Scope | R_1, E_1, InstanceOf<S_5>>): import("../Layer/Layer.js").Layer<R_1, E_1, InstanceOf<S_5>>;
+};
+//# sourceMappingURL=Ref.d.ts.map

package/esm/Ref/Ref.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Ref.d.ts","sourceRoot":"","sources":["../../src/Ref/Ref.ts"],"names":[],"mappings":"AACA,OAAO,EAAc,EAAE,EAAE,MAAM,qBAAqB,CAAA;AAGpD,OAAO,KAAK,EAAE,MAAM,eAAe,CAAA;AACnC,OAAO,EAAM,UAAU,EAAE,MAAM,oBAAoB,CAAA;AAEnD,MAAM,WAAW,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC;IAC7B,QAAQ,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAA;IAC5B,QAAQ,CAAC,MAAM,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,EACzB,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,KAAK,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,SAAS,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,KACxC,EAAE,CAAC,EAAE,CAAC,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC,CAAA;CAC9B;AAED,oBAAY,SAAS,GACjB,MAAM,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,GACrB,MAAM,CAAC,KAAK,EAAE,KAAK,EAAE,GAAG,CAAC,GACzB,MAAM,CAAC,KAAK,EAAE,GAAG,EAAE,GAAG,CAAC,GACvB,MAAM,CAAC,GAAG,EAAE,KAAK,EAAE,GAAG,CAAC,CAAA;AAE3B,oBAAY,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,IAAI,UAAU,CAAC,OAAO,GAAG,CAAC,GAAG,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;AAE/D,oBAAY,MAAM,GACd,GAAG,CAAC,GAAG,EAAE,GAAG,EAAE,GAAG,CAAC,GAClB,GAAG,CAAC,KAAK,EAAE,KAAK,EAAE,GAAG,CAAC,GACtB,GAAG,CAAC,KAAK,EAAE,GAAG,EAAE,GAAG,CAAC,GACpB,GAAG,CAAC,GAAG,EAAE,KAAK,EAAE,GAAG,CAAC,CAAA;AAGxB,oBAAY,WAAW,CAAC,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,MAAM,EAAE,EAAE,MAAM,EAAE,EAAE,MAAM,EAAE,CAAC,GAAG,EAAE,GAAG,KAAK,CAAA;AACrF,oBAAY,QAAQ,CAAC,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,MAAM,EAAE,EAAE,MAAM,EAAE,EAAE,MAAM,EAAE,CAAC,GAAG,EAAE,GAAG,KAAK,CAAA;AAClF,oBAAY,QAAQ,CAAC,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,MAAM,EAAE,EAAE,MAAM,EAAE,EAAE,MAAM,EAAE,CAAC,GAAG,EAAE,GAAG,KAAK,CAAA;AAGlF,wBAAgB,GAAG,CAAC,GAAG,SAAS,MAAM,EAAE,CAAC,EAAE,CAAC,EAAE,CAAC,EAC7C,GAAG,EAAE,GAAG,EACR,OAAO,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,EACvB,EAAE,GAAE,EAAE,CAAC,CAAC,CAAc;cASM,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,UAAmB,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,QAAQ,CAAC;sBAL9E,GAAG;sBAKS,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC;yBAAmB,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,QAAQ,CAAC;;;;SANhF,GAAG;;;yCAYR,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,UACnB,OAAO,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,QAAQ,CAAC;;yDAc1B,CAAC;;;;;;;;;;;;EAQb"}

package/esm/Ref/Ref.js

@@ -0,0 +1,30 @@
+import { pipe } from 'hkt-ts';
+import { DeepEquals } from 'hkt-ts/Typeclass/Eq';
+import * as Fx from '@/Fx/index.js';
+import { Id } from '@/Service/index.js';
+/* eslint-enable @typescript-eslint/no-unused-vars */
+export function Ref(tag, initial, Eq = DeepEquals) {
+    return class Reference extends Id {
+        get;
+        modify;
+        static tag = tag;
+        tag = tag;
+        static initial = initial;
+        static Eq = Eq;
+        constructor(get, modify) {
+            super();
+            this.get = get;
+            this.modify = modify;
+        }
+        static make(get, modify) {
+            return new this(get, modify);
+        }
+        static get() {
+            return pipe(Fx.access((env) => env.get(this.id())), Fx.flatMap((r) => r.get));
+        }
+        static modify(f) {
+            return pipe(Fx.access((env) => env.get(this.id())), Fx.flatMap((r) => r.modify(f)));
+        }
+    };
+}
+//# sourceMappingURL=Ref.js.map

package/esm/Ref/Ref.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Ref.js","sourceRoot":"","sources":["../../src/Ref/Ref.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,IAAI,EAAE,MAAM,QAAQ,CAAA;AAC7B,OAAO,EAAE,UAAU,EAAM,MAAM,qBAAqB,CAAA;AAGpD,OAAO,KAAK,EAAE,MAAM,eAAe,CAAA;AACnC,OAAO,EAAE,EAAE,EAAc,MAAM,oBAAoB,CAAA;AA2BnD,qDAAqD;AAErD,MAAM,UAAU,GAAG,CACjB,GAAQ,EACR,OAAuB,EACvB,KAAY,UAAU;IAEtB,OAAO,MAAM,SAAU,SAAQ,EAAE;QAOV;QAAsC;QAN3D,MAAM,CAAC,GAAG,GAAQ,GAAG,CAAA;QACZ,GAAG,GAAQ,GAAG,CAAA;QAEvB,MAAM,CAAC,OAAO,GAAG,OAAO,CAAA;QACxB,MAAM,CAAC,EAAE,GAAG,EAAE,CAAA;QAEd,YAAqB,GAA2B,EAAW,MAAiC;YAC1F,KAAK,EAAE,CAAA;YADY,QAAG,GAAH,GAAG,CAAwB;YAAW,WAAM,GAAN,MAAM,CAA2B;QAE5F,CAAC;QAED,MAAM,CAAC,IAAI,CAET,GAA2B,EAC3B,MAAiC;YAEjC,OAAO,IAAK,IAAqB,CAAC,GAAG,EAAE,MAAM,CAAkB,CAAA;QACjE,CAAC;QAED,MAAM,CAAC,GAAG;YACR,OAAO,IAAI,CACT,EAAE,CAAC,MAAM,CAAC,CAAC,GAAuB,EAAE,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,CAAC,EAC1D,EAAE,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CACzB,CAAA;QACH,CAAC;QAED,MAAM,CAAC,MAAM,CAEX,CAA2C;YAE3C,OAAO,IAAI,CACT,EAAE,CAAC,MAAM,CAAC,CAAC,GAAuB,EAAE,EAAE,CAAC,GAAG,CAAC,GAAG,CAAC,IAAI,CAAC,EAAE,EAAE,CAAC,CAAC,EAC1D,EAAE,CAAC,OAAO,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,CAAC,CAC/B,CAAA;QACH,CAAC;KACF,CAAA;AACH,CAAC"}

package/esm/Ref/atomic.d.ts

@@ -0,0 +1,5 @@
+import { AnyRef, ErrorsOf, ResourcesOf } from './Ref.js';
+import { Layer } from '@/Layer/Layer.js';
+import { InstanceOf } from '@/Service/index.js';
+export declare function atomic<REF extends AnyRef>(ref: REF): Layer<ResourcesOf<REF>, ErrorsOf<REF>, InstanceOf<REF>>;
+//# sourceMappingURL=atomic.d.ts.map

package/esm/Ref/atomic.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"atomic.d.ts","sourceRoot":"","sources":["../../src/Ref/atomic.ts"],"names":[],"mappings":"AAEA,OAAO,EAAE,MAAM,EAAE,QAAQ,EAAY,WAAW,EAAE,MAAM,UAAU,CAAA;AAIlE,OAAO,EAAE,KAAK,EAAE,MAAM,kBAAkB,CAAA;AAExC,OAAO,EAAE,UAAU,EAAE,MAAM,oBAAoB,CAAA;AAE/C,wBAAgB,MAAM,CAAC,GAAG,SAAS,MAAM,EACvC,GAAG,EAAE,GAAG,GACP,KAAK,CAAC,WAAW,CAAC,GAAG,CAAC,EAAE,QAAQ,CAAC,GAAG,CAAC,EAAE,UAAU,CAAC,GAAG,CAAC,CAAC,CAoBzD"}

package/esm/Ref/atomic.js

@@ -0,0 +1,16 @@
+import { pipe } from 'hkt-ts';
+import { Atomic } from '@/Atomic/Atomic.js';
+import { Fx, fromLazy, lazy, map } from '@/Fx/Fx.js';
+import { Layer } from '@/Layer/Layer.js';
+import { Lock, acquire } from '@/Semaphore/Semaphore.js';
+export function atomic(ref) {
+    const service = ref.id();
+    return Layer(service, () => Fx(function* () {
+        const atomic = Atomic(yield* ref.initial);
+        const get = fromLazy(atomic.get);
+        const locked = acquire(new Lock());
+        const modify = (f) => pipe(lazy(() => f(atomic.get())), map((computed) => atomic.modify(() => computed)), locked);
+        return new ref(get, modify);
+    }));
+}
+//# sourceMappingURL=atomic.js.map

package/esm/Ref/atomic.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"atomic.js","sourceRoot":"","sources":["../../src/Ref/atomic.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,IAAI,EAAE,MAAM,QAAQ,CAAA;AAI7B,OAAO,EAAE,MAAM,EAAE,MAAM,oBAAoB,CAAA;AAC3C,OAAO,EAAE,EAAE,EAAE,QAAQ,EAAE,IAAI,EAAE,GAAG,EAAE,MAAM,YAAY,CAAA;AACpD,OAAO,EAAE,KAAK,EAAE,MAAM,kBAAkB,CAAA;AACxC,OAAO,EAAE,IAAI,EAAE,OAAO,EAAE,MAAM,0BAA0B,CAAA;AAGxD,MAAM,UAAU,MAAM,CACpB,GAAQ;IAER,MAAM,OAAO,GAAG,GAAG,CAAC,EAAE,EAAE,CAAA;IAExB,OAAO,KAAK,CAAC,OAAO,EAAE,GAAG,EAAE,CACzB,EAAE,CAAC,QAAQ,CAAC;QACV,MAAM,MAAM,GAAG,MAAM,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,OAAO,CAAC,CAAA;QACzC,MAAM,GAAG,GAAG,QAAQ,CAAC,MAAM,CAAC,GAAG,CAAC,CAAA;QAChC,MAAM,MAAM,GAAG,OAAO,CAAC,IAAI,IAAI,EAAE,CAAC,CAAA;QAClC,MAAM,MAAM,GAAG,CACb,CAAgE,EACjD,EAAE,CACjB,IAAI,CACF,IAAI,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,EAC3B,GAAG,CAAC,CAAC,QAAQ,EAAE,EAAE,CAAC,MAAM,CAAC,MAAM,CAAC,GAAG,EAAE,CAAC,QAAQ,CAAC,CAAC,EAChD,MAAM,CACP,CAAA;QAEH,OAAO,IAAI,GAAG,CAAC,GAAU,EAAE,MAAM,CAAQ,CAAA;IAC3C,CAAC,CAAC,CACH,CAAA;AACH,CAAC"}

package/esm/Ref/index.d.ts

@@ -0,0 +1,3 @@
+export * from './atomic.js';
+export * from './Ref.js';
+//# sourceMappingURL=index.d.ts.map

package/esm/Ref/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/Ref/index.ts"],"names":[],"mappings":"AAAA,cAAc,aAAa,CAAA;AAC3B,cAAc,UAAU,CAAA"}

package/esm/Ref/index.js

@@ -0,0 +1,3 @@
+export * from './atomic.js';
+export * from './Ref.js';
+//# sourceMappingURL=index.js.map

package/esm/Ref/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/Ref/index.ts"],"names":[],"mappings":"AAAA,cAAc,aAAa,CAAA;AAC3B,cAAc,UAAU,CAAA"}

package/esm/Schedule/Decision.d.ts

@@ -0,0 +1,15 @@
+import { Associative } from 'hkt-ts/Typeclass/Associative';
+import { Delay } from '@/Time/index.js';
+export declare type Decision = Continue | Done;
+export declare class Continue {
+    readonly delay: Delay;
+    readonly tag = "Continue";
+    constructor(delay: Delay);
+}
+export declare const Done: {
+    readonly tag: "Done";
+};
+export declare type Done = typeof Done;
+export declare const DecisionUnionAssociative: Associative<Decision>;
+export declare const DecisionIntersectionAssociative: Associative<Decision>;
+//# sourceMappingURL=Decision.d.ts.map

package/esm/Schedule/Decision.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Decision.d.ts","sourceRoot":"","sources":["../../src/Schedule/Decision.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,WAAW,EAAE,MAAM,8BAA8B,CAAA;AAE1D,OAAO,EAAE,KAAK,EAAE,MAAM,iBAAiB,CAAA;AAEvC,oBAAY,QAAQ,GAAG,QAAQ,GAAG,IAAI,CAAA;AAEtC,qBAAa,QAAQ;IAGP,QAAQ,CAAC,KAAK,EAAE,KAAK;IAFjC,QAAQ,CAAC,GAAG,cAAa;gBAEJ,KAAK,EAAE,KAAK;CAClC;AAED,eAAO,MAAM,IAAI;;CAEb,CAAA;AACJ,oBAAY,IAAI,GAAG,OAAO,IAAI,CAAA;AAE9B,eAAO,MAAM,wBAAwB,EAAE,WAAW,CAAC,QAAQ,CAgB1D,CAAA;AAED,eAAO,MAAM,+BAA+B,EAAE,WAAW,CAAC,QAAQ,CAQjE,CAAA"}

package/esm/Schedule/Decision.js

@@ -0,0 +1,34 @@
+import { Delay } from '@/Time/index.js';
+export class Continue {
+    delay;
+    tag = 'Continue';
+    constructor(delay) {
+        this.delay = delay;
+    }
+}
+export const Done = new (class Done {
+    tag = 'Done';
+})();
+export const DecisionUnionAssociative = {
+    concat: (f, s) => {
+        if (f.tag === 'Done' && s.tag === 'Done') {
+            return Done;
+        }
+        if (f.tag === 'Done') {
+            return s;
+        }
+        if (s.tag === 'Done') {
+            return f;
+        }
+        return new Continue(Delay(Math.min(f.delay, s.delay)));
+    },
+};
+export const DecisionIntersectionAssociative = {
+    concat: (f, s) => {
+        if (f.tag === 'Done' || s.tag === 'Done') {
+            return Done;
+        }
+        return new Continue(Delay(Math.max(f.delay, s.delay)));
+    },
+};
+//# sourceMappingURL=Decision.js.map

package/esm/Schedule/Decision.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Decision.js","sourceRoot":"","sources":["../../src/Schedule/Decision.ts"],"names":[],"mappings":"AAEA,OAAO,EAAE,KAAK,EAAE,MAAM,iBAAiB,CAAA;AAIvC,MAAM,OAAO,QAAQ;IAGE;IAFZ,GAAG,GAAG,UAAU,CAAA;IAEzB,YAAqB,KAAY;QAAZ,UAAK,GAAL,KAAK,CAAO;IAAG,CAAC;CACtC;AAED,MAAM,CAAC,MAAM,IAAI,GAAG,IAAI,CAAC,MAAM,IAAI;IACxB,GAAG,GAAG,MAAM,CAAA;CACtB,CAAC,EAAE,CAAA;AAGJ,MAAM,CAAC,MAAM,wBAAwB,GAA0B;IAC7D,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE;QACf,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,EAAE;YACxC,OAAO,IAAI,CAAA;SACZ;QAED,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,EAAE;YACpB,OAAO,CAAC,CAAA;SACT;QAED,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,EAAE;YACpB,OAAO,CAAC,CAAA;SACT;QAED,OAAO,IAAI,QAAQ,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAA;IACxD,CAAC;CACF,CAAA;AAED,MAAM,CAAC,MAAM,+BAA+B,GAA0B;IACpE,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE;QACf,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,IAAI,CAAC,CAAC,GAAG,KAAK,MAAM,EAAE;YACxC,OAAO,IAAI,CAAA;SACZ;QAED,OAAO,IAAI,QAAQ,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,KAAK,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,CAAA;IACxD,CAAC;CACF,CAAA"}

package/esm/Schedule/Schedule.d.ts

@@ -0,0 +1,30 @@
+import * as Associative from 'hkt-ts/Typeclass/Associative';
+import { Identity } from 'hkt-ts/Typeclass/Identity';
+import { NonNegativeInteger } from 'hkt-ts/number';
+import { Decision } from './Decision.js';
+import { ScheduleState } from './ScheduleState.js';
+import { Delay, Time } from '@/Time/index.js';
+export interface Schedule {
+    readonly step: (now: Time, state: ScheduleState) => readonly [ScheduleState, Decision];
+    readonly and: (schedule: Schedule) => Schedule;
+    readonly or: (schedule: Schedule) => Schedule;
+}
+export declare function Schedule(step: Schedule['step']): Schedule;
+export declare const never: Schedule;
+export declare const forever: Schedule;
+export declare const recurring: (amount: NonNegativeInteger) => Schedule;
+export declare const periodic: (delay: Delay) => Schedule;
+export declare const delayed: (delay: Delay) => Schedule;
+export declare const spaced: (delay: Delay) => Schedule;
+export declare const exponential: (delay: Delay) => Schedule;
+export declare const retries: (retries: NonNegativeInteger) => Schedule;
+export declare const once: Schedule;
+export declare const or: (second: Schedule) => (first: Schedule) => Schedule;
+export declare const union: (...schedules: ReadonlyArray<Schedule>) => Schedule;
+export declare const and: (second: Schedule) => (first: Schedule) => Schedule;
+export declare const intersect: (...schedules: ReadonlyArray<Schedule>) => Schedule;
+export declare const UnionAssociative: Associative.Associative<Schedule>;
+export declare const UnionIdentity: Identity<Schedule>;
+export declare const IntersectionAssociative: Associative.Associative<Schedule>;
+export declare const IntersectionIdentity: Identity<Schedule>;
+//# sourceMappingURL=Schedule.d.ts.map

package/esm/Schedule/Schedule.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Schedule.d.ts","sourceRoot":"","sources":["../../src/Schedule/Schedule.ts"],"names":[],"mappings":"AAEA,OAAO,KAAK,WAAW,MAAM,8BAA8B,CAAA;AAC3D,OAAO,EAAE,QAAQ,EAAE,MAAM,2BAA2B,CAAA;AAEpD,OAAO,EAAE,kBAAkB,EAAE,MAAM,eAAe,CAAA;AAElD,OAAO,EAEL,QAAQ,EAIT,MAAM,eAAe,CAAA;AACtB,OAAO,EACL,aAAa,EAGd,MAAM,oBAAoB,CAAA;AAE3B,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAA;AAe7C,MAAM,WAAW,QAAQ;IACvB,QAAQ,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,IAAI,EAAE,KAAK,EAAE,aAAa,KAAK,SAAS,CAAC,aAAa,EAAE,QAAQ,CAAC,CAAA;IACtF,QAAQ,CAAC,GAAG,EAAE,CAAC,QAAQ,EAAE,QAAQ,KAAK,QAAQ,CAAA;IAC9C,QAAQ,CAAC,EAAE,EAAE,CAAC,QAAQ,EAAE,QAAQ,KAAK,QAAQ,CAAA;CAC9C;AAED,wBAAgB,QAAQ,CAAC,IAAI,EAAE,QAAQ,CAAC,MAAM,CAAC,GAAG,QAAQ,CAQzD;AAED,eAAO,MAAM,KAAK,EAAE,QAA4D,CAAA;AAEhF,eAAO,MAAM,OAAO,EAAE,QAGpB,CAAA;AAEF,eAAO,MAAM,SAAS,WAAY,kBAAkB,KAAG,QAC4C,CAAA;AAEnG,eAAO,MAAM,QAAQ,UAAW,KAAK,KAAG,QAYpC,CAAA;AASJ,eAAO,MAAM,OAAO,UAAW,KAAK,KAAG,QAAqC,CAAA;AAE5E,eAAO,MAAM,MAAM,UAAW,KAAK,KAAG,QAWlC,CAAA;AAEJ,eAAO,MAAM,WAAW,UAAW,KAAK,KAAG,QAKvC,CAAA;AAEJ,eAAO,MAAM,OAAO,YAAa,kBAAkB,KAAG,QACV,CAAA;AAE5C,eAAO,MAAM,IAAI,UAAmC,CAAA;AAEpD,eAAO,MAAM,EAAE,WACJ,QAAQ,aACT,QAAQ,KAAG,QACqB,CAAA;AAE1C,eAAO,MAAM,KAAK,iBAAkB,cAAc,QAAQ,CAAC,KAAG,QACS,CAAA;AAEvE,eAAO,MAAM,GAAG,WACL,QAAQ,aACT,QAAQ,KAAG,QAC4B,CAAA;AAEjD,eAAO,MAAM,SAAS,iBAAkB,cAAc,QAAQ,CAAC,KAAG,QACK,CAAA;AAEvE,eAAO,MAAM,gBAAgB,EAAE,WAAW,CAAC,WAAW,CAAC,QAAQ,CAK9D,CAAA;AAED,eAAO,MAAM,aAAa,EAAE,QAAQ,CAAC,QAAQ,CAG5C,CAAA;AAED,eAAO,MAAM,uBAAuB,EAAE,WAAW,CAAC,WAAW,CAAC,QAAQ,CAKrE,CAAA;AAED,eAAO,MAAM,oBAAoB,EAAE,QAAQ,CAAC,QAAQ,CAGnD,CAAA"}

package/esm/Schedule/Schedule.js

@@ -0,0 +1,64 @@
+import { Just, match } from 'hkt-ts/Maybe';
+import { makeAssociative } from 'hkt-ts/Tuple';
+import { pipe } from 'hkt-ts/function';
+import { NonNegativeInteger } from 'hkt-ts/number';
+import { Continue, DecisionIntersectionAssociative, DecisionUnionAssociative, Done, } from './Decision.js';
+import { ScheduleStateIntersectionAssociative, ScheduleStateUnionAssociative, } from './ScheduleState.js';
+import { Delay } from '@/Time/index.js';
+const asap = Delay(0);
+const max = Delay(Number.MAX_SAFE_INTEGER);
+const stateDecisionUnionAssociative = makeAssociative(ScheduleStateUnionAssociative, DecisionUnionAssociative);
+const stateDecisionIntersectionAssociative = makeAssociative(ScheduleStateIntersectionAssociative, DecisionIntersectionAssociative);
+export function Schedule(step) {
+    const schedule = {
+        step,
+        and: (other) => and(other)(schedule),
+        or: (other) => or(other)(schedule),
+    };
+    return schedule;
+}
+export const never = Schedule((now, state) => [state.step(now), Done]);
+export const forever = Schedule((now, state) => [
+    state.step(now, Just(asap)),
+    new Continue(asap),
+]);
+export const recurring = (amount) => Schedule((now, state) => [state.step(now), state.iteration < amount ? new Continue(asap) : Done]);
+export const periodic = (delay) => Schedule((now, state) => [
+    state.step(now, Just(delay)),
+    new Continue(pipe(state.time, match(() => delay, (prev) => accountForTimeDrift(prev, now, delay)))),
+]);
+const accountForTimeDrift = (previous, now, delay) => {
+    const expectedTime = previous + delay;
+    const drift = expectedTime > now ? expectedTime - now : 0;
+    return Delay(drift);
+};
+export const delayed = (delay) => periodic(delay).and(once);
+export const spaced = (delay) => Schedule((now, state) => {
+    const spacedDelay = pipe(state.previousDelay, match(() => delay, (n) => Delay(n + delay)));
+    return [state.step(now, Just(spacedDelay)), new Continue(spacedDelay)];
+});
+export const exponential = (delay) => Schedule((now, state) => {
+    const exponentialDelay = Delay(delay ** (state.iteration + 1));
+    return [state.step(now, Just(exponentialDelay)), new Continue(exponentialDelay)];
+});
+export const retries = (retries) => recurring(NonNegativeInteger(retries + 1));
+export const once = recurring(NonNegativeInteger(1));
+export const or = (second) => (first) => UnionAssociative.concat(first, second);
+export const union = (...schedules) => schedules.length === 0 ? never : schedules.reduce((x, y) => or(y)(x));
+export const and = (second) => (first) => IntersectionAssociative.concat(first, second);
+export const intersect = (...schedules) => schedules.length === 0 ? once : schedules.reduce((x, y) => and(y)(x));
+export const UnionAssociative = {
+    concat: (f, s) => Schedule((now, state) => stateDecisionUnionAssociative.concat(f.step(now, state), s.step(now, state))),
+};
+export const UnionIdentity = {
+    ...UnionAssociative,
+    id: Schedule((now, state) => [state.step(now, Just(max)), new Continue(max)]),
+};
+export const IntersectionAssociative = {
+    concat: (f, s) => Schedule((now, state) => stateDecisionIntersectionAssociative.concat(f.step(now, state), s.step(now, state))),
+};
+export const IntersectionIdentity = {
+    ...IntersectionAssociative,
+    id: forever,
+};
+//# sourceMappingURL=Schedule.js.map

package/esm/Schedule/Schedule.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Schedule.js","sourceRoot":"","sources":["../../src/Schedule/Schedule.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,IAAI,EAAE,KAAK,EAAE,MAAM,cAAc,CAAA;AAC1C,OAAO,EAAE,eAAe,EAAE,MAAM,cAAc,CAAA;AAG9C,OAAO,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAA;AACtC,OAAO,EAAE,kBAAkB,EAAE,MAAM,eAAe,CAAA;AAElD,OAAO,EACL,QAAQ,EAER,+BAA+B,EAC/B,wBAAwB,EACxB,IAAI,GACL,MAAM,eAAe,CAAA;AACtB,OAAO,EAEL,oCAAoC,EACpC,6BAA6B,GAC9B,MAAM,oBAAoB,CAAA;AAE3B,OAAO,EAAE,KAAK,EAAQ,MAAM,iBAAiB,CAAA;AAE7C,MAAM,IAAI,GAAG,KAAK,CAAC,CAAC,CAAC,CAAA;AACrB,MAAM,GAAG,GAAG,KAAK,CAAC,MAAM,CAAC,gBAAgB,CAAC,CAAA;AAE1C,MAAM,6BAA6B,GAAG,eAAe,CACnD,6BAA6B,EAC7B,wBAAwB,CACzB,CAAA;AAED,MAAM,oCAAoC,GAAG,eAAe,CAC1D,oCAAoC,EACpC,+BAA+B,CAChC,CAAA;AAQD,MAAM,UAAU,QAAQ,CAAC,IAAsB;IAC7C,MAAM,QAAQ,GAAa;QACzB,IAAI;QACJ,GAAG,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC,GAAG,CAAC,KAAK,CAAC,CAAC,QAAQ,CAAC;QACpC,EAAE,EAAE,CAAC,KAAK,EAAE,EAAE,CAAC,EAAE,CAAC,KAAK,CAAC,CAAC,QAAQ,CAAC;KACnC,CAAA;IAED,OAAO,QAAQ,CAAA;AACjB,CAAC;AAED,MAAM,CAAC,MAAM,KAAK,GAAa,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,IAAI,CAAC,CAAC,CAAA;AAEhF,MAAM,CAAC,MAAM,OAAO,GAAa,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CAAC;IACxD,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;IAC3B,IAAI,QAAQ,CAAC,IAAI,CAAC;CACnB,CAAC,CAAA;AAEF,MAAM,CAAC,MAAM,SAAS,GAAG,CAAC,MAA0B,EAAY,EAAE,CAChE,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,CAAC,EAAE,KAAK,CAAC,SAAS,GAAG,MAAM,CAAC,CAAC,CAAC,IAAI,QAAQ,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAA;AAEnG,MAAM,CAAC,MAAM,QAAQ,GAAG,CAAC,KAAY,EAAY,EAAE,CACjD,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CAAC;IACvB,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,KAAK,CAAC,CAAC;IAC5B,IAAI,QAAQ,CACV,IAAI,CACF,KAAK,CAAC,IAAI,EACV,KAAK,CACH,GAAG,EAAE,CAAC,KAAK,EACX,CAAC,IAAI,EAAE,EAAE,CAAC,mBAAmB,CAAC,IAAI,EAAE,GAAG,EAAE,KAAK,CAAC,CAChD,CACF,CACF;CACF,CAAC,CAAA;AAEJ,MAAM,mBAAmB,GAAG,CAAC,QAAc,EAAE,GAAS,EAAE,KAAY,EAAS,EAAE;IAC7E,MAAM,YAAY,GAAG,QAAQ,GAAG,KAAK,CAAA;IACrC,MAAM,KAAK,GAAG,YAAY,GAAG,GAAG,CAAC,CAAC,CAAC,YAAY,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAA;IAEzD,OAAO,KAAK,CAAC,KAAK,CAAC,CAAA;AACrB,CAAC,CAAA;AAED,MAAM,CAAC,MAAM,OAAO,GAAG,CAAC,KAAY,EAAY,EAAE,CAAC,QAAQ,CAAC,KAAK,CAAC,CAAC,GAAG,CAAC,IAAI,CAAC,CAAA;AAE5E,MAAM,CAAC,MAAM,MAAM,GAAG,CAAC,KAAY,EAAY,EAAE,CAC/C,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE;IACtB,MAAM,WAAW,GAAG,IAAI,CACtB,KAAK,CAAC,aAAa,EACnB,KAAK,CACH,GAAG,EAAE,CAAC,KAAK,EACX,CAAC,CAAC,EAAE,EAAE,CAAC,KAAK,CAAC,CAAC,GAAG,KAAK,CAAC,CACxB,CACF,CAAA;IAED,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,WAAW,CAAC,CAAC,EAAE,IAAI,QAAQ,CAAC,WAAW,CAAC,CAAC,CAAA;AACxE,CAAC,CAAC,CAAA;AAEJ,MAAM,CAAC,MAAM,WAAW,GAAG,CAAC,KAAY,EAAY,EAAE,CACpD,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE;IACtB,MAAM,gBAAgB,GAAG,KAAK,CAAC,KAAK,IAAI,CAAC,KAAK,CAAC,SAAS,GAAG,CAAC,CAAC,CAAC,CAAA;IAE9D,OAAO,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,gBAAgB,CAAC,CAAC,EAAE,IAAI,QAAQ,CAAC,gBAAgB,CAAC,CAAC,CAAA;AAClF,CAAC,CAAC,CAAA;AAEJ,MAAM,CAAC,MAAM,OAAO,GAAG,CAAC,OAA2B,EAAY,EAAE,CAC/D,SAAS,CAAC,kBAAkB,CAAC,OAAO,GAAG,CAAC,CAAC,CAAC,CAAA;AAE5C,MAAM,CAAC,MAAM,IAAI,GAAG,SAAS,CAAC,kBAAkB,CAAC,CAAC,CAAC,CAAC,CAAA;AAEpD,MAAM,CAAC,MAAM,EAAE,GACb,CAAC,MAAgB,EAAE,EAAE,CACrB,CAAC,KAAe,EAAY,EAAE,CAC5B,gBAAgB,CAAC,MAAM,CAAC,KAAK,EAAE,MAAM,CAAC,CAAA;AAE1C,MAAM,CAAC,MAAM,KAAK,GAAG,CAAC,GAAG,SAAkC,EAAY,EAAE,CACvE,SAAS,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAA;AAEvE,MAAM,CAAC,MAAM,GAAG,GACd,CAAC,MAAgB,EAAE,EAAE,CACrB,CAAC,KAAe,EAAY,EAAE,CAC5B,uBAAuB,CAAC,MAAM,CAAC,KAAK,EAAE,MAAM,CAAC,CAAA;AAEjD,MAAM,CAAC,MAAM,SAAS,GAAG,CAAC,GAAG,SAAkC,EAAY,EAAE,CAC3E,SAAS,CAAC,MAAM,KAAK,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,SAAS,CAAC,MAAM,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAA;AAEvE,MAAM,CAAC,MAAM,gBAAgB,GAAsC;IACjE,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CACf,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CACtB,6BAA6B,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,KAAK,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,KAAK,CAAC,CAAC,CAC7E;CACJ,CAAA;AAED,MAAM,CAAC,MAAM,aAAa,GAAuB;IAC/C,GAAG,gBAAgB;IACnB,EAAE,EAAE,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CAAC,CAAC,KAAK,CAAC,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,IAAI,QAAQ,CAAC,GAAG,CAAC,CAAC,CAAC;CAC9E,CAAA;AAED,MAAM,CAAC,MAAM,uBAAuB,GAAsC;IACxE,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CACf,QAAQ,CAAC,CAAC,GAAG,EAAE,KAAK,EAAE,EAAE,CACtB,oCAAoC,CAAC,MAAM,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,KAAK,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,GAAG,EAAE,KAAK,CAAC,CAAC,CACpF;CACJ,CAAA;AAED,MAAM,CAAC,MAAM,oBAAoB,GAAuB;IACtD,GAAG,uBAAuB;IAC1B,EAAE,EAAE,OAAO;CACZ,CAAA"}

package/esm/Schedule/ScheduleState.d.ts

@@ -0,0 +1,45 @@
+import { Maybe } from 'hkt-ts/Maybe';
+import { Associative } from 'hkt-ts/Typeclass/Associative';
+import { NonNegativeInteger } from 'hkt-ts/number';
+import { Delay, Time } from '@/Time/index.js';
+export declare class ScheduleState {
+    /**
+     * The Time at which the Schedule was last run
+     */
+    readonly time: Maybe<Time>;
+    /**
+     * The number of iterations this Schedule has been through
+     */
+    readonly iteration: NonNegativeInteger;
+    /**
+     * The previousDelay of this Schedule, if any
+     */
+    readonly previousDelay: Maybe<Delay>;
+    /**
+     * The cumulative delay of this Schedule, will remain 0 if no delay is applied.
+     */
+    readonly cumulativeDelay: Delay;
+    constructor(
+    /**
+     * The Time at which the Schedule was last run
+     */
+    time?: Maybe<Time>, 
+    /**
+     * The number of iterations this Schedule has been through
+     */
+    iteration?: NonNegativeInteger, 
+    /**
+     * The previousDelay of this Schedule, if any
+     */
+    previousDelay?: Maybe<Delay>, 
+    /**
+     * The cumulative delay of this Schedule, will remain 0 if no delay is applied.
+     */
+    cumulativeDelay?: Delay);
+    readonly step: (now: Time, delay?: Maybe<Delay>) => ScheduleState;
+    readonly or: (state: ScheduleState) => ScheduleState;
+    readonly and: (state: ScheduleState) => ScheduleState;
+}
+export declare const ScheduleStateUnionAssociative: Associative<ScheduleState>;
+export declare const ScheduleStateIntersectionAssociative: Associative<ScheduleState>;
+//# sourceMappingURL=ScheduleState.d.ts.map

package/esm/Schedule/ScheduleState.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"ScheduleState.d.ts","sourceRoot":"","sources":["../../src/Schedule/ScheduleState.ts"],"names":[],"mappings":"AAAA,OAAO,EAAQ,KAAK,EAAmC,MAAM,cAAc,CAAA;AAC3E,OAAO,EAAE,WAAW,EAAE,MAAM,8BAA8B,CAAA;AAE1D,OAAO,EAAE,kBAAkB,EAAE,MAAM,eAAe,CAAA;AAElD,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAA;AAiB7C,qBAAa,aAAa;IAEtB;;OAEG;IACH,QAAQ,CAAC,IAAI,EAAE,KAAK,CAAC,IAAI,CAAC;IAC1B;;OAEG;IACH,QAAQ,CAAC,SAAS,EAAE,kBAAkB;IACtC;;OAEG;IACH,QAAQ,CAAC,aAAa,EAAE,KAAK,CAAC,KAAK,CAAC;IACpC;;OAEG;IACH,QAAQ,CAAC,eAAe,EAAE,KAAK;;IAf/B;;OAEG;IACM,IAAI,GAAE,KAAK,CAAC,IAAI,CAAW;IACpC;;OAEG;IACM,SAAS,GAAE,kBAA0C;IAC9D;;OAEG;IACM,aAAa,GAAE,KAAK,CAAC,KAAK,CAAW;IAC9C;;OAEG;IACM,eAAe,GAAE,KAAgB;IAG5C,QAAQ,CAAC,IAAI,QAAS,IAAI,UAAS,MAAM,KAAK,CAAC,KAAa,aAAa,CAYtE;IAEH,QAAQ,CAAC,EAAE,UAAW,aAAa,KAAG,aAAa,CAMhD;IAEH,QAAQ,CAAC,GAAG,UAAW,aAAa,KAAG,aAAa,CAMjD;CACJ;AAED,eAAO,MAAM,6BAA6B,EAAE,WAAW,CAAC,aAAa,CAEpE,CAAA;AAED,eAAO,MAAM,oCAAoC,EAAE,WAAW,CAAC,aAAa,CAE3E,CAAA"}

package/esm/Schedule/ScheduleState.js

@@ -0,0 +1,54 @@
+import { Just, Nothing, makeAssociative, match } from 'hkt-ts/Maybe';
+import { pipe } from 'hkt-ts/function';
+import { NonNegativeInteger } from 'hkt-ts/number';
+import { Delay, Time } from '@/Time/index.js';
+const minDelayAssociative = Delay.makeAssociative({
+    concat: Math.min,
+});
+const maybeMinDelayAssociative = makeAssociative(minDelayAssociative);
+const maxDelayAssociative = Delay.makeAssociative({
+    concat: Math.max,
+});
+const maybeMaxDelayAssociative = makeAssociative(maxDelayAssociative);
+const maxTimeAssociative = Time.makeAssociative({
+    concat: Math.max,
+});
+const maybeMaxTimeAssociative = makeAssociative(maxTimeAssociative);
+export class ScheduleState {
+    time;
+    iteration;
+    previousDelay;
+    cumulativeDelay;
+    constructor(
+    /**
+     * The Time at which the Schedule was last run
+     */
+    time = Nothing, 
+    /**
+     * The number of iterations this Schedule has been through
+     */
+    iteration = NonNegativeInteger(0), 
+    /**
+     * The previousDelay of this Schedule, if any
+     */
+    previousDelay = Nothing, 
+    /**
+     * The cumulative delay of this Schedule, will remain 0 if no delay is applied.
+     */
+    cumulativeDelay = Delay(0)) {
+        this.time = time;
+        this.iteration = iteration;
+        this.previousDelay = previousDelay;
+        this.cumulativeDelay = cumulativeDelay;
+    }
+    step = (now, delay = Nothing) => new ScheduleState(Just(now), NonNegativeInteger(this.iteration + 1), delay, pipe(delay, match(() => this.cumulativeDelay, (d) => Delay(this.cumulativeDelay + d))));
+    or = (state) => new ScheduleState(maybeMaxTimeAssociative.concat(this.time, state.time), NonNegativeInteger(Math.max(this.iteration, state.iteration)), maybeMinDelayAssociative.concat(this.previousDelay, state.previousDelay), minDelayAssociative.concat(this.cumulativeDelay, state.cumulativeDelay));
+    and = (state) => new ScheduleState(maybeMaxTimeAssociative.concat(this.time, state.time), NonNegativeInteger(Math.max(this.iteration, state.iteration)), maybeMaxDelayAssociative.concat(this.previousDelay, state.previousDelay), maxDelayAssociative.concat(this.cumulativeDelay, state.cumulativeDelay));
+}
+export const ScheduleStateUnionAssociative = {
+    concat: (f, s) => f.or(s),
+};
+export const ScheduleStateIntersectionAssociative = {
+    concat: (f, s) => f.and(s),
+};
+//# sourceMappingURL=ScheduleState.js.map

package/esm/Schedule/ScheduleState.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"ScheduleState.js","sourceRoot":"","sources":["../../src/Schedule/ScheduleState.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,IAAI,EAAS,OAAO,EAAE,eAAe,EAAE,KAAK,EAAE,MAAM,cAAc,CAAA;AAE3E,OAAO,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAA;AACtC,OAAO,EAAE,kBAAkB,EAAE,MAAM,eAAe,CAAA;AAElD,OAAO,EAAE,KAAK,EAAE,IAAI,EAAE,MAAM,iBAAiB,CAAA;AAE7C,MAAM,mBAAmB,GAAG,KAAK,CAAC,eAAe,CAAC;IAChD,MAAM,EAAE,IAAI,CAAC,GAAG;CACjB,CAAC,CAAA;AACF,MAAM,wBAAwB,GAAG,eAAe,CAAC,mBAAmB,CAAC,CAAA;AAErE,MAAM,mBAAmB,GAAG,KAAK,CAAC,eAAe,CAAC;IAChD,MAAM,EAAE,IAAI,CAAC,GAAG;CACjB,CAAC,CAAA;AACF,MAAM,wBAAwB,GAAG,eAAe,CAAC,mBAAmB,CAAC,CAAA;AAErE,MAAM,kBAAkB,GAAG,IAAI,CAAC,eAAe,CAAC;IAC9C,MAAM,EAAE,IAAI,CAAC,GAAG;CACjB,CAAC,CAAA;AACF,MAAM,uBAAuB,GAAG,eAAe,CAAC,kBAAkB,CAAC,CAAA;AAEnE,MAAM,OAAO,aAAa;IAKb;IAIA;IAIA;IAIA;IAhBX;IACE;;OAEG;IACM,OAAoB,OAAO;IACpC;;OAEG;IACM,YAAgC,kBAAkB,CAAC,CAAC,CAAC;IAC9D;;OAEG;IACM,gBAA8B,OAAO;IAC9C;;OAEG;IACM,kBAAyB,KAAK,CAAC,CAAC,CAAC;QAZjC,SAAI,GAAJ,IAAI,CAAuB;QAI3B,cAAS,GAAT,SAAS,CAA4C;QAIrD,kBAAa,GAAb,aAAa,CAAwB;QAIrC,oBAAe,GAAf,eAAe,CAAkB;IACzC,CAAC;IAEK,IAAI,GAAG,CAAC,GAAS,EAAE,QAAsB,OAAO,EAAiB,EAAE,CAC1E,IAAI,aAAa,CACf,IAAI,CAAC,GAAG,CAAC,EACT,kBAAkB,CAAC,IAAI,CAAC,SAAS,GAAG,CAAC,CAAC,EACtC,KAAK,EACL,IAAI,CACF,KAAK,EACL,KAAK,CACH,GAAG,EAAE,CAAC,IAAI,CAAC,eAAe,EAC1B,CAAC,CAAC,EAAE,EAAE,CAAC,KAAK,CAAC,IAAI,CAAC,eAAe,GAAG,CAAC,CAAC,CACvC,CACF,CACF,CAAA;IAEM,EAAE,GAAG,CAAC,KAAoB,EAAiB,EAAE,CACpD,IAAI,aAAa,CACf,uBAAuB,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,CAAC,IAAI,CAAC,EACrD,kBAAkB,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,SAAS,EAAE,KAAK,CAAC,SAAS,CAAC,CAAC,EAC7D,wBAAwB,CAAC,MAAM,CAAC,IAAI,CAAC,aAAa,EAAE,KAAK,CAAC,aAAa,CAAC,EACxE,mBAAmB,CAAC,MAAM,CAAC,IAAI,CAAC,eAAe,EAAE,KAAK,CAAC,eAAe,CAAC,CACxE,CAAA;IAEM,GAAG,GAAG,CAAC,KAAoB,EAAiB,EAAE,CACrD,IAAI,aAAa,CACf,uBAAuB,CAAC,MAAM,CAAC,IAAI,CAAC,IAAI,EAAE,KAAK,CAAC,IAAI,CAAC,EACrD,kBAAkB,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,CAAC,SAAS,EAAE,KAAK,CAAC,SAAS,CAAC,CAAC,EAC7D,wBAAwB,CAAC,MAAM,CAAC,IAAI,CAAC,aAAa,EAAE,KAAK,CAAC,aAAa,CAAC,EACxE,mBAAmB,CAAC,MAAM,CAAC,IAAI,CAAC,eAAe,EAAE,KAAK,CAAC,eAAe,CAAC,CACxE,CAAA;CACJ;AAED,MAAM,CAAC,MAAM,6BAA6B,GAA+B;IACvE,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC;CAC1B,CAAA;AAED,MAAM,CAAC,MAAM,oCAAoC,GAA+B;IAC9E,MAAM,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;CAC3B,CAAA"}

package/esm/Schedule/index.d.ts

@@ -0,0 +1,4 @@
+export * from './Decision.js';
+export * from './Schedule.js';
+export * from './ScheduleState.js';
+//# sourceMappingURL=index.d.ts.map

package/esm/Schedule/index.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.d.ts","sourceRoot":"","sources":["../../src/Schedule/index.ts"],"names":[],"mappings":"AAAA,cAAc,eAAe,CAAA;AAC7B,cAAc,eAAe,CAAA;AAC7B,cAAc,oBAAoB,CAAA"}

package/esm/Schedule/index.js

@@ -0,0 +1,4 @@
+export * from './Decision.js';
+export * from './Schedule.js';
+export * from './ScheduleState.js';
+//# sourceMappingURL=index.js.map

package/esm/Schedule/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../src/Schedule/index.ts"],"names":[],"mappings":"AAAA,cAAc,eAAe,CAAA;AAC7B,cAAc,eAAe,CAAA;AAC7B,cAAc,oBAAoB,CAAA"}

package/esm/Scheduler/RootScheduler.d.ts

@@ -0,0 +1,4 @@
+import { Scheduler } from './Scheduler.js';
+import { Timer } from '@/Timer/Timer.js';
+export declare function RootScheduler(timer?: Timer): Scheduler;
+//# sourceMappingURL=RootScheduler.d.ts.map

package/esm/Scheduler/RootScheduler.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"RootScheduler.d.ts","sourceRoot":"","sources":["../../src/Scheduler/RootScheduler.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAA;AAmB1C,OAAO,EAAE,KAAK,EAAE,MAAM,kBAAkB,CAAA;AAExC,wBAAgB,aAAa,CAAC,KAAK,GAAE,KAAyB,GAAG,SAAS,CAEzE"}

package/esm/Scheduler/RootScheduler.js

@@ -0,0 +1,53 @@
+import { callbackScheduler } from './callbackScheduler.js';
+import { scheduled } from './scheduled.js';
+import { delayToUnixTime } from '@/Clock/index.js';
+import { CurrentEnv } from '@/FiberRef/FiberRef.js';
+import { setFiberRef } from '@/FiberRefs/FiberRefs.js';
+import { FiberRuntime } from '@/FiberRuntime/FiberRuntime.js';
+import { Pending } from '@/Future/Future.js';
+import { complete } from '@/Future/complete.js';
+import { wait } from '@/Future/wait.js';
+import { Delay } from '@/Time/index.js';
+import { SetTimeoutTimer } from '@/Timer/SetTimeoutTimer.js';
+export function RootScheduler(timer = SetTimeoutTimer()) {
+    return new RootSchedulerImpl(timer);
+}
+class RootSchedulerImpl {
+    timer;
+    dispose;
+    runAt;
+    constructor(timer) {
+        this.timer = timer;
+        const [disposable, addTask] = callbackScheduler(timer);
+        this.dispose = disposable.dispose;
+        this.runAt = (fx, delay) => {
+            const task = new ScheduledTask(fx);
+            addTask(delayToUnixTime(delay)(this.timer), task.start);
+            return task.wait;
+        };
+    }
+    asap = (fx, env, context) => {
+        setFiberRef(CurrentEnv, env)(context.fiberRefs);
+        const runtime = new FiberRuntime(this.runAt(fx, Delay(0)), context);
+        // Safe to call sync since it will be run by the Timeline.
+        runtime.startSync();
+        return runtime;
+    };
+    schedule = (fx, schedule, env, context) => {
+        setFiberRef(CurrentEnv, env)(context.fiberRefs);
+        const runtime = new FiberRuntime(scheduled(fx, schedule, this.timer, this.runAt), context);
+        // Safe to call sync since it will be run by the Timeline.
+        runtime.startSync();
+        return runtime;
+    };
+}
+class ScheduledTask {
+    fx;
+    future = Pending();
+    constructor(fx) {
+        this.fx = fx;
+    }
+    wait = wait(this.future);
+    start = () => complete(this.future)(this.fx);
+}
+//# sourceMappingURL=RootScheduler.js.map

package/esm/Scheduler/RootScheduler.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"RootScheduler.js","sourceRoot":"","sources":["../../src/Scheduler/RootScheduler.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,iBAAiB,EAAE,MAAM,wBAAwB,CAAA;AAC1D,OAAO,EAAE,SAAS,EAAE,MAAM,gBAAgB,CAAA;AAE1C,OAAO,EAAE,eAAe,EAAE,MAAM,kBAAkB,CAAA;AAKlD,OAAO,EAAE,UAAU,EAAE,MAAM,wBAAwB,CAAA;AACnD,OAAO,EAAE,WAAW,EAAE,MAAM,0BAA0B,CAAA;AACtD,OAAO,EAAE,YAAY,EAAE,MAAM,gCAAgC,CAAA;AAC7D,OAAO,EAAE,OAAO,EAAE,MAAM,oBAAoB,CAAA;AAC5C,OAAO,EAAE,QAAQ,EAAE,MAAM,sBAAsB,CAAA;AAC/C,OAAO,EAAE,IAAI,EAAE,MAAM,kBAAkB,CAAA;AAGvC,OAAO,EAAE,KAAK,EAAE,MAAM,iBAAiB,CAAA;AACvC,OAAO,EAAE,eAAe,EAAE,MAAM,4BAA4B,CAAA;AAG5D,MAAM,UAAU,aAAa,CAAC,QAAe,eAAe,EAAE;IAC5D,OAAO,IAAI,iBAAiB,CAAC,KAAK,CAAC,CAAA;AACrC,CAAC;AAED,MAAM,iBAAiB;IAKA;IAJZ,OAAO,CAAuB;IAEpB,KAAK,CAAyD;IAEjF,YAAqB,KAAY;QAAZ,UAAK,GAAL,KAAK,CAAO;QAC/B,MAAM,CAAC,UAAU,EAAE,OAAO,CAAC,GAAG,iBAAiB,CAAC,KAAK,CAAC,CAAA;QAEtD,IAAI,CAAC,OAAO,GAAG,UAAU,CAAC,OAAO,CAAA;QAEjC,IAAI,CAAC,KAAK,GAAG,CAAU,EAAe,EAAE,KAAY,EAAe,EAAE;YACnE,MAAM,IAAI,GAAG,IAAI,aAAa,CAAC,EAAE,CAAC,CAAA;YAElC,OAAO,CAAC,eAAe,CAAC,KAAK,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,IAAI,CAAC,KAAK,CAAC,CAAA;YAEvD,OAAO,IAAI,CAAC,IAAI,CAAA;QAClB,CAAC,CAAA;IACH,CAAC;IAEQ,IAAI,GAAsB,CACjC,EAAe,EACf,GAAW,EACX,OAAqB,EACT,EAAE;QACd,WAAW,CAAC,UAAU,EAAE,GAAG,CAAC,CAAC,OAAO,CAAC,SAAS,CAAC,CAAA;QAE/C,MAAM,OAAO,GAAG,IAAI,YAAY,CAAC,IAAI,CAAC,KAAK,CAAC,EAAE,EAAE,KAAK,CAAC,CAAC,CAAC,CAAC,EAAE,OAAO,CAAC,CAAA;QAEnE,0DAA0D;QAC1D,OAAO,CAAC,SAAS,EAAE,CAAA;QAEnB,OAAO,OAAO,CAAA;IAChB,CAAC,CAAA;IAEQ,QAAQ,GAA0B,CACzC,EAAe,EACf,QAAkB,EAClB,GAAW,EACX,OAAqB,EACrB,EAAE;QACF,WAAW,CAAC,UAAU,EAAE,GAAG,CAAC,CAAC,OAAO,CAAC,SAAS,CAAC,CAAA;QAE/C,MAAM,OAAO,GAAG,IAAI,YAAY,CAAC,SAAS,CAAC,EAAE,EAAE,QAAQ,EAAE,IAAI,CAAC,KAAK,EAAE,IAAI,CAAC,KAAK,CAAC,EAAE,OAAO,CAAC,CAAA;QAE1F,0DAA0D;QAC1D,OAAO,CAAC,SAAS,EAAE,CAAA;QAEnB,OAAO,OAAO,CAAA;IAChB,CAAC,CAAA;CACF;AAED,MAAM,aAAa;IAGI;IAFZ,MAAM,GAAG,OAAO,EAAW,CAAA;IAEpC,YAAqB,EAAe;QAAf,OAAE,GAAF,EAAE,CAAa;IAAG,CAAC;IAE/B,IAAI,GAAG,IAAI,CAAC,IAAI,CAAC,MAAM,CAAC,CAAA;IACxB,KAAK,GAAG,GAAG,EAAE,CAAC,QAAQ,CAAC,IAAI,CAAC,MAAM,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,CAAA;CACtD"}

package/esm/Scheduler/Scheduler.d.ts

@@ -0,0 +1,14 @@
+import { Disposable } from '@/Disposable/Disposable.js';
+import { Env } from '@/Env/Env.js';
+import { Live } from '@/Fiber/Fiber.js';
+import { FiberContext } from '@/FiberContext/FiberContext.js';
+import { Fx } from '@/Fx/Fx.js';
+import { Schedule } from '@/Schedule/Schedule.js';
+import { ScheduleState } from '@/Schedule/ScheduleState.js';
+import { Service } from '@/Service/Service.js';
+export interface Scheduler extends Disposable {
+    readonly asap: <R, E, A>(fx: Fx<R, E, A>, env: Env<R>, context: FiberContext) => Live<E, A>;
+    readonly schedule: <R, E, A>(fx: Fx<R, E, A>, schedule: Schedule, env: Env<R>, context: FiberContext) => Live<E, ScheduleState>;
+}
+export declare const Scheduler: Service<Scheduler>;
+//# sourceMappingURL=Scheduler.d.ts.map

package/esm/Scheduler/Scheduler.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"Scheduler.d.ts","sourceRoot":"","sources":["../../src/Scheduler/Scheduler.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,UAAU,EAAE,MAAM,4BAA4B,CAAA;AACvD,OAAO,EAAE,GAAG,EAAE,MAAM,cAAc,CAAA;AAClC,OAAO,EAAE,IAAI,EAAE,MAAM,kBAAkB,CAAA;AACvC,OAAO,EAAE,YAAY,EAAE,MAAM,gCAAgC,CAAA;AAC7D,OAAO,EAAE,EAAE,EAAE,MAAM,YAAY,CAAA;AAC/B,OAAO,EAAE,QAAQ,EAAE,MAAM,wBAAwB,CAAA;AACjD,OAAO,EAAE,aAAa,EAAE,MAAM,6BAA6B,CAAA;AAC3D,OAAO,EAAE,OAAO,EAAE,MAAM,sBAAsB,CAAA;AAE9C,MAAM,WAAW,SAAU,SAAQ,UAAU;IAC3C,QAAQ,CAAC,IAAI,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,EAAE,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,YAAY,KAAK,IAAI,CAAC,CAAC,EAAE,CAAC,CAAC,CAAA;IAE3F,QAAQ,CAAC,QAAQ,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,EACzB,EAAE,EAAE,EAAE,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,EACf,QAAQ,EAAE,QAAQ,EAClB,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,EACX,OAAO,EAAE,YAAY,KAClB,IAAI,CAAC,CAAC,EAAE,aAAa,CAAC,CAAA;CAC5B;AAED,eAAO,MAAM,SAAS,oBAAkC,CAAA"}

package/esm/Scheduler/Scheduler.js

@@ -0,0 +1,3 @@
+import { Service } from '@/Service/Service.js';
+export const Scheduler = Service('Scheduler');
+//# sourceMappingURL=Scheduler.js.map

package/esm/Scheduler/Scheduler.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"Scheduler.js","sourceRoot":"","sources":["../../src/Scheduler/Scheduler.ts"],"names":[],"mappings":"AAOA,OAAO,EAAE,OAAO,EAAE,MAAM,sBAAsB,CAAA;AAa9C,MAAM,CAAC,MAAM,SAAS,GAAG,OAAO,CAAY,WAAW,CAAC,CAAA"}

package/esm/Scheduler/callbackScheduler.d.ts

@@ -0,0 +1,5 @@
+import { Disposable } from '@/Disposable/Disposable.js';
+import { UnixTime } from '@/Time/index.js';
+import { Timer } from '@/Timer/Timer.js';
+export declare function callbackScheduler(timer: Timer): readonly [Disposable, (time: UnixTime, f: () => void) => Disposable];
+//# sourceMappingURL=callbackScheduler.d.ts.map

package/esm/Scheduler/callbackScheduler.d.ts.map

@@ -0,0 +1 @@
+{"version":3,"file":"callbackScheduler.d.ts","sourceRoot":"","sources":["../../src/Scheduler/callbackScheduler.ts"],"names":[],"mappings":"AACA,OAAO,EAAE,UAAU,EAAE,MAAM,4BAA4B,CAAA;AACvD,OAAO,EAAE,QAAQ,EAAE,MAAM,iBAAiB,CAAA;AAE1C,OAAO,EAAE,KAAK,EAAE,MAAM,kBAAkB,CAAA;AAExC,wBAAgB,iBAAiB,CAC/B,KAAK,EAAE,KAAK,GACX,SAAS,CAAC,UAAU,EAAE,CAAC,IAAI,EAAE,QAAQ,EAAE,CAAC,EAAE,MAAM,IAAI,KAAK,UAAU,CAAC,CAkCtE"}

package/esm/Scheduler/callbackScheduler.js

@@ -0,0 +1,32 @@
+import * as Clock from '@/Clock/Clock.js';
+import { Disposable } from '@/Disposable/Disposable.js';
+import * as Timeline from '@/Timeline/index.js';
+export function callbackScheduler(timer) {
+    const timeline = Timeline.Timeline(scheduleNextRun);
+    let disposable = Disposable.None;
+    let nextArrival = null;
+    function scheduleNextRun() {
+        // If the timeline is empty, lets cleanup our resources
+        if (timeline.isEmpty()) {
+            disposable.dispose();
+            nextArrival = null;
+            return;
+        }
+        // Get the time of the next arrival currently in the Timeline
+        const next = timeline.nextArrival();
+        const needToScheduleEarlierTime = !nextArrival || nextArrival > next;
+        // If we need to create or schedule an earlier time, cleanup the old timer
+        // and schedule the new one.
+        if (needToScheduleEarlierTime) {
+            disposable.dispose();
+            disposable = timer.setTimer(runReadyTasks, Clock.unixTimeToDelay(next)(timer));
+            nextArrival = next;
+        }
+    }
+    function runReadyTasks() {
+        timeline.getReadyTasks(Clock.timeToUnixTime(timer.getCurrentTime())(timer)).forEach((f) => f());
+        scheduleNextRun();
+    }
+    return [Disposable(() => disposable.dispose()), timeline.add];
+}
+//# sourceMappingURL=callbackScheduler.js.map