dfx 0.0.3 → 0.1.0

package/DiscordWS/index.ts

@@ -0,0 +1,76 @@
+import * as T from "@effect-ts/core/Effect"
+import * as L from "@effect-ts/core/Effect/Layer"
+import * as Q from "@effect-ts/core/Effect/Queue"
+import * as SC from "@effect-ts/core/Effect/Schedule"
+import { pipe } from "@effect-ts/core/Function"
+import { tag } from "@effect-ts/core/Has"
+import * as CB from "callbag-effect-ts"
+import { RawData } from "ws"
+import { log } from "../Log"
+import { GatewayPayload } from "../types"
+import * as WS from "../WS"
+
+export type Message = GatewayPayload | WS.Reconnect
+
+export interface OpenOpts {
+  url?: string
+  version?: number
+  encoding?: Encoding
+  outgoingQueue: Q.Queue<Message>
+}
+
+export interface Encoding {
+  type: "json" | "etf"
+  encode: (p: GatewayPayload) => string | Buffer | ArrayBuffer
+  decode: (p: RawData) => GatewayPayload
+}
+
+export const jsonEncoding: Encoding = {
+  type: "json",
+  encode: (p) => JSON.stringify(p),
+  decode: (p) => JSON.parse(p.toString("utf8")),
+}
+
+const makeOutgoing = (q: Q.Queue<Message>, e: Encoding): WS.OutboundQueue =>
+  Q.map_(q, (data): WS.Message => {
+    if (data === WS.Reconnect) {
+      return data
+    }
+
+    return e.encode(data)
+  })
+
+const openImpl = ({
+  url = "wss://gateway.discord.gg/",
+  version = 9,
+  encoding = jsonEncoding,
+  outgoingQueue: outgoing,
+}: OpenOpts) =>
+  pipe(
+    WS.open(
+      `${url}?v=${version}&encoding=${encoding.type}`,
+      makeOutgoing(outgoing, encoding),
+    ),
+    CB.unwrap,
+    CB.tapError((e) => log(serviceTag, "error", e)),
+    CB.retry(SC.exponential(500)),
+    CB.map(encoding.decode),
+  )
+
+export type Connection = ReturnType<typeof openImpl>
+
+// Service definition
+const serviceTag = "DiscordWSService" as const
+const makeService = () =>
+  ({
+    _tag: serviceTag,
+    open: openImpl,
+  } as const)
+
+export interface DiscordWS extends ReturnType<typeof makeService> {}
+export const DiscordWS = tag<DiscordWS>()
+export const LiveDiscordWS = L.fromFunction(DiscordWS)(makeService)
+
+// Helpers
+export const open = (opts: OpenOpts) =>
+  T.accessService(DiscordWS)(({ open }) => open(opts))

package/Log/index.d.ts

@@ -0,0 +1,15 @@
+import * as L from "@effect-ts/core/Effect/Layer";
+import * as T from "@effect-ts/core/Effect";
+declare const make: (debug?: boolean) => {
+    readonly _tag: "LogService";
+    readonly log: (...args: any[]) => T.UIO<void>;
+    readonly debug: (...args: any[]) => T.UIO<void>;
+};
+export interface Log extends ReturnType<typeof make> {
+}
+export declare const Log: import("@effect-ts/system/Has").Tag<Log>;
+export declare const LiveLog: L.Layer<{}, never, import("@effect-ts/system/Has").Has<Log>>;
+export declare const LiveLogDebug: L.Layer<{}, never, import("@effect-ts/system/Has").Has<Log>>;
+export declare const log: (...args: any[]) => T.Effect<import("@effect-ts/system/Has").Has<Log>, never, void>;
+export declare const logDebug: (...args: any[]) => T.Effect<import("@effect-ts/system/Has").Has<Log>, never, void>;
+export {};

package/Log/index.js

@@ -0,0 +1,28 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.logDebug = exports.log = exports.LiveLogDebug = exports.LiveLog = exports.Log = void 0;
+const tslib_1 = require("tslib");
+const tracing_1 = tslib_1.__importStar(require("@effect-ts/core/Tracing"));
+const fileName_1 = "Log/index.ts";
+const L = tslib_1.__importStar(require("@effect-ts/core/Effect/Layer"));
+const T = tslib_1.__importStar(require("@effect-ts/core/Effect"));
+const Has_1 = require("@effect-ts/core/Has");
+const make = (debug = false) => ({
+    _tag: "LogService",
+    log: (...args) => T.succeedWith(() => {
+        console.error("INFO", ...args);
+    }, fileName_1 + ":10:20"),
+    debug: (...args) => debug
+        ? T.succeedWith(() => {
+            console.error("DEBUG", ...args);
+        }, fileName_1 + ":15:24")
+        : T.unit,
+});
+exports.Log = (0, Has_1.tag)();
+exports.LiveLog = L.fromValue(exports.Log)(make(false));
+exports.LiveLogDebug = L.fromValue(exports.Log)(make(true));
+const log = (...args) => T.accessServiceM(exports.Log)(({ log }) => log(...args), fileName_1 + ":27:24");
+exports.log = log;
+const logDebug = (...args) => T.accessServiceM(exports.Log)(({ debug }) => debug(...args), fileName_1 + ":30:24");
+exports.logDebug = logDebug;
+//# sourceMappingURL=index.js.map

package/Log/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["index.ts"],"names":[],"mappings":";;;;;;AAAA,wEAAiD;AACjD,kEAA2C;AAC3C,6CAAyC;AAGzC,MAAM,IAAI,GAAG,CAAC,KAAK,GAAG,KAAK,EAAE,EAAE,CAC7B,CAAC;IACC,IAAI,EAAE,YAAY;IAClB,GAAG,EAAE,CAAC,GAAG,IAAW,EAAE,EAAE,CACtB,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE;QACjB,OAAO,CAAC,KAAK,CAAC,MAAM,EAAE,GAAG,IAAI,CAAC,CAAA;IAChC,CAAC,wBAAC;IACJ,KAAK,EAAE,CAAC,GAAG,IAAW,EAAE,EAAE,CACxB,KAAK;QACH,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE;YACjB,OAAO,CAAC,KAAK,CAAC,OAAO,EAAE,GAAG,IAAI,CAAC,CAAA;QACjC,CAAC,wBAAC;QACJ,CAAC,CAAC,CAAC,CAAC,IAAI;CACH,CAAA,CAAA;AAGA,QAAA,GAAG,GAAG,IAAA,SAAG,GAAO,CAAA;AAChB,QAAA,OAAO,GAAG,CAAC,CAAC,SAAS,CAAC,WAAG,CAAC,CAAC,IAAI,CAAC,KAAK,CAAC,CAAC,CAAA;AACvC,QAAA,YAAY,GAAG,CAAC,CAAC,SAAS,CAAC,WAAG,CAAC,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,CAAA;AAEjD,MAAM,GAAG,GAAG,CAAC,GAAG,IAAW,EAAE,EAAE,CACpC,CAAC,CAAC,cAAc,CAAC,WAAG,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC,GAAG,CAAC,GAAG,IAAI,CAAC,wBAAC,CAAA;AADrC,QAAA,GAAG,OACkC;AAE3C,MAAM,QAAQ,GAAG,CAAC,GAAG,IAAW,EAAE,EAAE,CACzC,CAAC,CAAC,cAAc,CAAC,WAAG,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC,wBAAC,CAAA;AADzC,QAAA,QAAQ,YACiC"}

package/Log/index.ts

@@ -0,0 +1,30 @@
+import * as L from "@effect-ts/core/Effect/Layer"
+import * as T from "@effect-ts/core/Effect"
+import { tag } from "@effect-ts/core/Has"
+import { _A } from "@effect-ts/core/Utils"
+
+const make = (debug = false) =>
+  ({
+    _tag: "LogService",
+    log: (...args: any[]) =>
+      T.succeedWith(() => {
+        console.error("INFO", ...args)
+      }),
+    debug: (...args: any[]) =>
+      debug
+        ? T.succeedWith(() => {
+            console.error("DEBUG", ...args)
+          })
+        : T.unit,
+  } as const)
+
+export interface Log extends ReturnType<typeof make> {}
+export const Log = tag<Log>()
+export const LiveLog = L.fromValue(Log)(make(false))
+export const LiveLogDebug = L.fromValue(Log)(make(true))
+
+export const log = (...args: any[]) =>
+  T.accessServiceM(Log)(({ log }) => log(...args))
+
+export const logDebug = (...args: any[]) =>
+  T.accessServiceM(Log)(({ debug }) => debug(...args))

package/Utils/memoize.d.ts

@@ -0,0 +1,3 @@
+declare type Primitive = string | number | boolean;
+export declare function memoize<A extends Primitive, T>(f: (a: A) => T): (a: A) => T;
+export {};

package/Utils/memoize.js

@@ -0,0 +1,16 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.memoize = void 0;
+function memoize(f) {
+    const cache = new Map();
+    return (a) => {
+        if (cache.has(a)) {
+            return cache.get(a);
+        }
+        const value = f(a);
+        cache.set(a, value);
+        return value;
+    };
+}
+exports.memoize = memoize;
+//# sourceMappingURL=memoize.js.map

package/Utils/memoize.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"memoize.js","sourceRoot":"","sources":["memoize.ts"],"names":[],"mappings":";;;AAEA,SAAgB,OAAO,CAAyB,CAAc;IAC5D,MAAM,KAAK,GAAG,IAAI,GAAG,EAAQ,CAAA;IAE7B,OAAO,CAAC,CAAI,EAAK,EAAE;QACjB,IAAI,KAAK,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE;YAChB,OAAO,KAAK,CAAC,GAAG,CAAC,CAAC,CAAM,CAAA;SACzB;QAED,MAAM,KAAK,GAAG,CAAC,CAAC,CAAC,CAAC,CAAA;QAClB,KAAK,CAAC,GAAG,CAAC,CAAC,EAAE,KAAK,CAAC,CAAA;QACnB,OAAO,KAAK,CAAA;IACd,CAAC,CAAA;AACH,CAAC;AAZD,0BAYC"}

package/Utils/memoize.ts

@@ -0,0 +1,15 @@
+type Primitive = string | number | boolean
+
+export function memoize<A extends Primitive, T>(f: (a: A) => T) {
+  const cache = new Map<A, T>()
+
+  return (a: A): T => {
+    if (cache.has(a)) {
+      return cache.get(a) as T
+    }
+
+    const value = f(a)
+    cache.set(a, value)
+    return value
+  }
+}

package/WS/index.d.ts

@@ -0,0 +1,30 @@
+/// <reference types="node" />
+import * as T from "@effect-ts/core/Effect";
+import * as Q from "@effect-ts/core/Effect/Queue";
+import * as CB from "callbag-effect-ts";
+import * as Ws from "ws";
+export declare type WsError = {
+    _tag: "close";
+    code: number;
+    reason: string;
+} | {
+    _tag: "error";
+    cause: unknown;
+} | {
+    _tag: "write";
+    cause: unknown;
+};
+export declare const Reconnect: unique symbol;
+export declare type Reconnect = typeof Reconnect;
+export declare type Message = string | Buffer | ArrayBuffer | Reconnect;
+export declare type OutboundQueue = Q.Dequeue<Message>;
+declare const makeService: () => {
+    readonly _tag: "WSService";
+    readonly open: (url: string, out: OutboundQueue, options?: Ws.ClientOptions | undefined) => CB.EffectSource<import("@effect-ts/system/Has").Has<import("../Log").Log> & import("@effect-ts/system/Clock").HasClock, WsError, Ws.RawData>;
+};
+export interface WS extends ReturnType<typeof makeService> {
+}
+export declare const WS: import("@effect-ts/system/Has").Tag<WS>;
+export declare const LiveWS: import("@effect-ts/system/Layer").Layer<unknown, never, import("@effect-ts/system/Has").Has<WS>>;
+export declare const open: (url: string, out: OutboundQueue, options?: Ws.ClientOptions | undefined) => T.Effect<import("@effect-ts/system/Has").Has<WS>, never, CB.EffectSource<import("@effect-ts/system/Has").Has<import("../Log").Log> & import("@effect-ts/system/Clock").HasClock, WsError, Ws.RawData>>;
+export {};

package/WS/index.js

@@ -1,24 +1,24 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
-exports.LiveWS = exports.WS = exports.Reconnect = void 0;
+exports.open = exports.LiveWS = exports.WS = exports.Reconnect = void 0;
 const tslib_1 = require("tslib");
 const tracing_1 = tslib_1.__importStar(require("@effect-ts/core/Tracing"));
 const fileName_1 = "WS/index.ts";
 const T = tslib_1.__importStar(require("@effect-ts/core/Effect"));
-const S = tslib_1.__importStar(require("@effect-ts/core/Effect/Experimental/Stream"));
 const M = tslib_1.__importStar(require("@effect-ts/core/Effect/Managed"));
-const Q = tslib_1.__importStar(require("@effect-ts/core/Effect/Queue"));
 const SC = tslib_1.__importStar(require("@effect-ts/core/Effect/Schedule"));
+const CB = tslib_1.__importStar(require("callbag-effect-ts"));
 const Function_1 = require("@effect-ts/core/Function");
 const Has_1 = require("@effect-ts/core/Has");
 const Ws = tslib_1.__importStar(require("ws"));
+const Log_1 = require("../Log");
 exports.Reconnect = Symbol();
-const open = (url, options) => (M.makeExit_(T.succeedWith(() => new Ws.WebSocket(url, options), fileName_1 + ":29:18"), (ws) => T.succeedWith(() => {
+const openSocket = (url, options) => (M.makeExit_(T.succeedWith(() => new Ws.WebSocket(url, options), fileName_1 + ":23:18"), (ws) => T.succeedWith(() => {
     ws.removeAllListeners();
     ws.close();
-}, fileName_1 + ":31:20"), fileName_1 + ":30:15"));
-const recv = (ws) => S.async((emit) => {
-    ws.on("message", (message) => emit.single(message));
+}, fileName_1 + ":25:20"), fileName_1 + ":24:15"));
+const recv = (ws) => CB.async((emit) => {
+    ws.on("message", (message) => emit.data(message));
     ws.on("error", (cause) => {
         emit.fail({
             _tag: "error",
@@ -31,7 +31,7 @@ const recv = (ws) => S.async((emit) => {
         reason: reason.toString("utf8"),
     }));
 });
-const send = (out) => (ws) => (S.drain(S.tap_(S.unwrap(T.map_(T.effectAsync((cb) => {
+const send = (ws, out) => (CB.drain(CB.tap_(CB.tap_(CB.unwrap(T.map_(T.effectAsync((cb) => {
     if (ws.readyState & ws.OPEN) {
         cb(T.unit);
     }
@@ -40,7 +40,7 @@ const send = (out) => (ws) => (S.drain(S.tap_(S.unwrap(T.map_(T.effectAsync((cb)
             cb(T.unit);
         });
     }
-}, fileName_1 + ":58:18"), () => S.fromQueue()(out), fileName_1 + ":67:10")), (data) => T.effectAsync((cb) => {
+}, fileName_1 + ":52:18"), () => CB.fromQueue(out), fileName_1 + ":61:10")), (p) => (0, Log_1.logDebug)("WSService", "send", p)), (data) => T.effectAsync((cb) => {
     if (data === exports.Reconnect) {
         ws.close(1012, "reconnecting");
         cb(T.unit);
@@ -48,24 +48,23 @@ const send = (out) => (ws) => (S.drain(S.tap_(S.unwrap(T.map_(T.effectAsync((cb)
     else {
         ws.send(data, (err) => {
             if (err) {
-                cb(T.fail({ _tag: "write", cause: err }, fileName_1 + ":77:24"));
+                cb(T.fail({ _tag: "write", cause: err }, fileName_1 + ":72:24"));
             }
             else {
                 cb(T.unit);
             }
         });
     }
-}, fileName_1 + ":70:20"))));
-const duplex = (out) => (ws) => (S.mergeTerminateLeft_(recv(ws), send(out)(ws)));
-const openDuplexWithQueue = (url, out, options) => (S.retry_(S.unwrapManaged(M.map_(open(url, options), duplex(out), fileName_1 + ":98:10")), SC.recurWhile((e) => e._tag === "close" && e.code === 1012)));
-const openDuplex = (url, options) => (T.map_(Q.makeUnbounded(), (write) => ({
-    read: openDuplexWithQueue(url, write, options),
-    write,
-}), fileName_1 + ":109:10"));
-const makeWS = T.succeed({
+}, fileName_1 + ":65:20"))));
+const duplex = (out) => (ws) => CB.merge_(recv(ws), send(ws, out));
+const openDuplex = (url, out, options) => (CB.retry_(CB.unwrapManaged(M.map_(openSocket(url, options), duplex(out), fileName_1 + ":93:10")), SC.recurWhile((e) => e._tag === "close" && e.code === 1012)));
+const makeService = () => ({
     _tag: "WSService",
     open: openDuplex,
-}, fileName_1 + ":115:25");
+});
 exports.WS = (0, Has_1.tag)();
-exports.LiveWS = T.toLayer(exports.WS)(makeWS);
+exports.LiveWS = T.toLayer(exports.WS)(T.succeedWith(makeService, fileName_1 + ":106:50"));
+// Helpers
+const open = (url, out, options) => T.accessService(exports.WS)(({ open }) => open(url, out, options), fileName_1 + ":113:25");
+exports.open = open;
 //# sourceMappingURL=index.js.map

package/WS/index.js.map

@@ -1 +1 @@
-{"version":3,"file":"index.js","sourceRoot":"","sources":["index.ts"],"names":[],"mappings":";;;;;;AAAA,kEAA2C;AAC3C,sFAA+D;AAC/D,0EAAmD;AACnD,wEAAiD;AACjD,4EAAqD;AACrD,uDAA+C;AAC/C,6CAAyC;AAGzC,+CAAwB;AASX,QAAA,SAAS,GAAG,MAAM,EAAE,CAAA;AAQjC,MAAM,IAAI,GAAG,CAAC,GAAW,EAAE,OAA0B,EAAE,EAAE,EAGrD,CAAC,WADD,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE,CAAC,IAAI,EAAE,CAAC,SAAS,CAAC,GAAG,EAAE,OAAO,CAAC,wBAAC,EACxC,CAAC,EAAE,EAAE,EAAE,CAChB,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE;IACjB,EAAE,CAAC,kBAAkB,EAAE,CAAA;IACvB,EAAE,CAAC,KAAK,EAAE,CAAA;AACZ,CAAC,wBAAC,yBAEL,CAAA;AAEH,MAAM,IAAI,GAAG,CAAC,EAAgB,EAAmB,EAAE,CACjD,CAAC,CAAC,KAAK,CAA+B,CAAC,IAAI,EAAE,EAAE;IAC7C,EAAE,CAAC,EAAE,CAAC,SAAS,EAAE,CAAC,OAAO,EAAE,EAAE,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,CAAC,CAAC,CAAA;IACnD,EAAE,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,KAAK,EAAE,EAAE;QACvB,IAAI,CAAC,IAAI,CAAC;YACR,IAAI,EAAE,OAAO;YACb,KAAK;SACN,CAAC,CAAA;IACJ,CAAC,CAAC,CAAA;IACF,EAAE,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,CAC9B,IAAI,CAAC,IAAI,CAAC;QACR,IAAI,EAAE,OAAO;QACb,IAAI;QACJ,MAAM,EAAE,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC;KAChC,CAAC,CACH,CAAA;AACH,CAAC,CAAC,CAAA;AAEJ,MAAM,IAAI,GAAG,CAAC,GAAqB,EAAE,EAAE,CAAC,CAAC,EAAgB,EAAE,EAAE,EA6BzD,CAAC,CAAC,KAAK,CAhBP,CAAC,MADD,CAAC,CAAC,MAAM,CADR,CAAC,MATD,CAAC,CAAC,WAAW,CAAyB,CAAC,EAAE,EAAE,EAAE;IAC3C,IAAI,EAAE,CAAC,UAAU,GAAG,EAAE,CAAC,IAAI,EAAE;QAC3B,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;KACX;SAAM;QACL,EAAE,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,EAAE;YACnB,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;QACZ,CAAC,CAAC,CAAA;KACH;AACH,CAAC,wBAAC,EACI,GAAG,EAAE,CAAC,CAAC,CAAC,SAAS,EAAE,CAAC,GAAG,CAAC,2BAExB,CAAC,IAAI,EAAE,EAAE,CACb,CAAC,CAAC,WAAW,CAAyB,CAAC,EAAE,EAAE,EAAE;IAC3C,IAAI,IAAI,KAAK,iBAAS,EAAE;QACtB,EAAE,CAAC,KAAK,CAAC,IAAI,EAAE,cAAc,CAAC,CAAA;QAC9B,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;KACX;SAAM;QACL,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,EAAE;YACpB,IAAI,GAAG,EAAE;gBACP,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,GAAG,EAAE,wBAAC,CAAC,CAAA;aAC1C;iBAAM;gBACL,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;aACX;QACH,CAAC,CAAC,CAAA;KACH;AACH,CAAC,wBAAC,GAGL,CAAA;AAEH,MAAM,MAAM,GAAG,CAAC,GAAqB,EAAE,EAAE,CAAC,CAAC,EAAgB,EAAE,EAAE,EAC9C,CAAC,qBAAX,IAAI,CAAC,EAAE,CAAC,EAAuB,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,EAAE,CAAA;AAErD,MAAM,mBAAmB,GAAG,CAC1B,GAAW,EACX,GAAqB,EACrB,OAA0B,EACT,EAAE,EAKjB,CAAC,QADD,CAAC,CAAC,aAAa,CADf,CAAC,MADD,IAAI,CAAC,GAAG,EAAE,OAAO,CAAC,EACZ,MAAM,CAAC,GAAG,CAAC,2BAET,EAAE,CAAC,UAAU,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,OAAO,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,EACpE,CAAA;AAEH,MAAM,UAAU,GAAG,CACjB,GAAW,EACX,OAA0B,EACE,EAAE,EAG5B,CAAC,MADD,CAAC,CAAC,aAAa,EAAW,EACpB,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;IAChB,IAAI,EAAE,mBAAmB,CAAC,GAAG,EAAE,KAAK,EAAE,OAAO,CAAC;IAC9C,KAAK;CACN,CAAC,0BACH,CAAA;AAEH,MAAM,MAAM,GAAG,CAAC,CAAC,OAAO,CAAC;IACvB,IAAI,EAAE,WAAW;IACjB,IAAI,EAAE,UAAU;CACR,yBAAC,CAAA;AAGE,QAAA,EAAE,GAAG,IAAA,SAAG,GAAM,CAAA;AACd,QAAA,MAAM,GAAG,CAAC,CAAC,OAAO,CAAC,UAAE,CAAC,CAAC,MAAM,CAAC,CAAA"}
+{"version":3,"file":"index.js","sourceRoot":"","sources":["index.ts"],"names":[],"mappings":";;;;;;AAAA,kEAA2C;AAC3C,0EAAmD;AAEnD,4EAAqD;AACrD,8DAAuC;AACvC,uDAA+C;AAC/C,6CAAyC;AACzC,+CAAwB;AACxB,gCAAiC;AAOpB,QAAA,SAAS,GAAG,MAAM,EAAE,CAAA;AAKjC,MAAM,UAAU,GAAG,CAAC,GAAW,EAAE,OAA0B,EAAE,EAAE,EAG3D,CAAC,WADD,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE,CAAC,IAAI,EAAE,CAAC,SAAS,CAAC,GAAG,EAAE,OAAO,CAAC,wBAAC,EACxC,CAAC,EAAE,EAAE,EAAE,CAChB,CAAC,CAAC,WAAW,CAAC,GAAG,EAAE;IACjB,EAAE,CAAC,kBAAkB,EAAE,CAAA;IACvB,EAAE,CAAC,KAAK,EAAE,CAAA;AACZ,CAAC,wBAAC,yBAEL,CAAA;AAEH,MAAM,IAAI,GAAG,CAAC,EAAgB,EAAE,EAAE,CAChC,EAAE,CAAC,KAAK,CAA+B,CAAC,IAAI,EAAE,EAAE;IAC9C,EAAE,CAAC,EAAE,CAAC,SAAS,EAAE,CAAC,OAAO,EAAE,EAAE,CAAC,IAAI,CAAC,IAAI,CAAC,OAAO,CAAC,CAAC,CAAA;IACjD,EAAE,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,KAAK,EAAE,EAAE;QACvB,IAAI,CAAC,IAAI,CAAC;YACR,IAAI,EAAE,OAAO;YACb,KAAK;SACN,CAAC,CAAA;IACJ,CAAC,CAAC,CAAA;IACF,EAAE,CAAC,EAAE,CAAC,OAAO,EAAE,CAAC,IAAI,EAAE,MAAM,EAAE,EAAE,CAC9B,IAAI,CAAC,IAAI,CAAC;QACR,IAAI,EAAE,OAAO;QACb,IAAI;QACJ,MAAM,EAAE,MAAM,CAAC,QAAQ,CAAC,MAAM,CAAC;KAChC,CAAC,CACH,CAAA;AACH,CAAC,CAAC,CAAA;AAEJ,MAAM,IAAI,GAAG,CAAC,EAAgB,EAAE,GAAkB,EAAE,EAAE,EA8BlD,EAAE,CAAC,KAAK,CAhBR,EAAE,MADF,EAAE,MADF,EAAE,CAAC,MAAM,CADT,CAAC,MATD,CAAC,CAAC,WAAW,CAAyB,CAAC,EAAE,EAAE,EAAE;IAC3C,IAAI,EAAE,CAAC,UAAU,GAAG,EAAE,CAAC,IAAI,EAAE;QAC3B,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;KACX;SAAM;QACL,EAAE,CAAC,IAAI,CAAC,MAAM,EAAE,GAAG,EAAE;YACnB,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;QACZ,CAAC,CAAC,CAAA;KACH;AACH,CAAC,wBAAC,EACI,GAAG,EAAE,CAAC,EAAE,CAAC,SAAS,CAAC,GAAG,CAAC,2BAEtB,CAAC,CAAC,EAAE,EAAE,CAAC,IAAA,cAAQ,EAAC,WAAW,EAAE,MAAM,EAAE,CAAC,CAAC,GACvC,CAAC,IAAI,EAAE,EAAE,CACd,CAAC,CAAC,WAAW,CAAyB,CAAC,EAAE,EAAE,EAAE;IAC3C,IAAI,IAAI,KAAK,iBAAS,EAAE;QACtB,EAAE,CAAC,KAAK,CAAC,IAAI,EAAE,cAAc,CAAC,CAAA;QAC9B,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;KACX;SAAM;QACL,EAAE,CAAC,IAAI,CAAC,IAAI,EAAE,CAAC,GAAG,EAAE,EAAE;YACpB,IAAI,GAAG,EAAE;gBACP,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,EAAE,IAAI,EAAE,OAAO,EAAE,KAAK,EAAE,GAAG,EAAE,wBAAC,CAAC,CAAA;aAC1C;iBAAM;gBACL,EAAE,CAAC,CAAC,CAAC,IAAI,CAAC,CAAA;aACX;QACH,CAAC,CAAC,CAAA;KACH;AACH,CAAC,wBAAC,GAGL,CAAA;AAEH,MAAM,MAAM,GAAG,CAAC,GAAkB,EAAE,EAAE,CAAC,CAAC,EAAgB,EAAE,EAAE,CAC1D,EAAE,CAAC,MAAM,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC,CAAA;AAEpC,MAAM,UAAU,GAAG,CACjB,GAAW,EACX,GAAkB,EAClB,OAA0B,EAC1B,EAAE,EAKA,EAAE,QADF,EAAE,CAAC,aAAa,CADhB,CAAC,MADD,UAAU,CAAC,GAAG,EAAE,OAAO,CAAC,EAClB,MAAM,CAAC,GAAG,CAAC,2BAER,EAAE,CAAC,UAAU,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,OAAO,IAAI,CAAC,CAAC,IAAI,KAAK,IAAI,CAAC,EACrE,CAAA;AAEH,MAAM,WAAW,GAAG,GAAG,EAAE,CACvB,CAAC;IACC,IAAI,EAAE,WAAW;IACjB,IAAI,EAAE,UAAU;CACP,CAAA,CAAA;AAGA,QAAA,EAAE,GAAG,IAAA,SAAG,GAAM,CAAA;AACd,QAAA,MAAM,GAAG,CAAC,CAAC,OAAO,CAAC,UAAE,CAAC,CAAC,CAAC,CAAC,WAAW,CAAC,WAAW,yBAAC,CAAC,CAAA;AAE/D,UAAU;AACH,MAAM,IAAI,GAAG,CAClB,GAAW,EACX,GAAkB,EAClB,OAA0B,EAC1B,EAAE,CAAC,CAAC,CAAC,aAAa,CAAC,UAAE,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,IAAI,CAAC,GAAG,EAAE,GAAG,EAAE,OAAO,CAAC,yBAAC,CAAA;AAJlD,QAAA,IAAI,QAI8C"}

package/WS/index.ts

@@ -1,43 +1,37 @@
 import * as T from "@effect-ts/core/Effect"
-import * as S from "@effect-ts/core/Effect/Experimental/Stream"
 import * as M from "@effect-ts/core/Effect/Managed"
 import * as Q from "@effect-ts/core/Effect/Queue"
 import * as SC from "@effect-ts/core/Effect/Schedule"
+import * as CB from "callbag-effect-ts"
 import { pipe } from "@effect-ts/core/Function"
 import { tag } from "@effect-ts/core/Has"
-import type { _A } from "@effect-ts/core/Utils"
-import { HasClock } from "@effect-ts/system/Clock"
 import * as Ws from "ws"
+import { logDebug } from "../Log"
 
 export type WsError =
   | { _tag: "close"; code: number; reason: string }
   | { _tag: "error"; cause: unknown }
   | { _tag: "write"; cause: unknown }
 
-type WebSocketStream = S.Stream<HasClock, WsError, Ws.RawData>
-
 export const Reconnect = Symbol()
-export type Message = Ws.RawData | typeof Reconnect
-
-export interface WebSocketConnection {
-  read: WebSocketStream
-  write: Q.Queue<Message>
-}
+export type Reconnect = typeof Reconnect
+export type Message = string | Buffer | ArrayBuffer | Reconnect
+export type OutboundQueue = Q.Dequeue<Message>
 
-const open = (url: string, options?: Ws.ClientOptions) =>
+const openSocket = (url: string, options?: Ws.ClientOptions) =>
   pipe(
     T.succeedWith(() => new Ws.WebSocket(url, options)),
     M.makeExit((ws) =>
       T.succeedWith(() => {
         ws.removeAllListeners()
         ws.close()
-      })
-    )
+      }),
+    ),
   )
 
-const recv = (ws: Ws.WebSocket): WebSocketStream =>
-  S.async<unknown, WsError, Ws.RawData>((emit) => {
-    ws.on("message", (message) => emit.single(message))
+const recv = (ws: Ws.WebSocket) =>
+  CB.async<unknown, WsError, Ws.RawData>((emit) => {
+    ws.on("message", (message) => emit.data(message))
     ws.on("error", (cause) => {
       emit.fail({
         _tag: "error",
@@ -49,11 +43,11 @@ const recv = (ws: Ws.WebSocket): WebSocketStream =>
         _tag: "close",
         code,
         reason: reason.toString("utf8"),
-      })
+      }),
     )
   })
 
-const send = (out: Q.Queue<Message>) => (ws: Ws.WebSocket) =>
+const send = (ws: Ws.WebSocket, out: OutboundQueue) =>
   pipe(
     T.effectAsync<unknown, WsError, void>((cb) => {
       if (ws.readyState & ws.OPEN) {
@@ -64,9 +58,10 @@ const send = (out: Q.Queue<Message>) => (ws: Ws.WebSocket) =>
         })
       }
     }),
-    T.map(() => S.fromQueue()(out)),
-    S.unwrap,
-    S.tap((data) =>
+    T.map(() => CB.fromQueue(out)),
+    CB.unwrap,
+    CB.tap((p) => logDebug("WSService", "send", p)),
+    CB.tap((data) =>
       T.effectAsync<unknown, WsError, void>((cb) => {
         if (data === Reconnect) {
           ws.close(1012, "reconnecting")
@@ -80,43 +75,39 @@ const send = (out: Q.Queue<Message>) => (ws: Ws.WebSocket) =>
             }
           })
         }
-      })
+      }),
     ),
-    S.drain
+    CB.drain,
   )
 
-const duplex = (out: Q.Queue<Message>) => (ws: Ws.WebSocket) =>
-  pipe(recv(ws), S.mergeTerminateLeft(send(out)(ws)))
-
-const openDuplexWithQueue = (
-  url: string,
-  out: Q.Queue<Message>,
-  options?: Ws.ClientOptions
-): WebSocketStream =>
-  pipe(
-    open(url, options),
-    M.map(duplex(out)),
-    S.unwrapManaged,
-    S.retry(SC.recurWhile((e) => e._tag === "close" && e.code === 1012))
-  )
+const duplex = (out: OutboundQueue) => (ws: Ws.WebSocket) =>
+  CB.merge_(recv(ws), send(ws, out))
 
 const openDuplex = (
   url: string,
-  options?: Ws.ClientOptions
-): T.UIO<WebSocketConnection> =>
+  out: OutboundQueue,
+  options?: Ws.ClientOptions,
+) =>
   pipe(
-    Q.makeUnbounded<Message>(),
-    T.map((write) => ({
-      read: openDuplexWithQueue(url, write, options),
-      write,
-    }))
+    openSocket(url, options),
+    M.map(duplex(out)),
+    CB.unwrapManaged,
+    CB.retry(SC.recurWhile((e) => e._tag === "close" && e.code === 1012)),
   )
 
-const makeWS = T.succeed({
-  _tag: "WSService",
-  open: openDuplex,
-} as const)
+const makeService = () =>
+  ({
+    _tag: "WSService",
+    open: openDuplex,
+  } as const)
 
-export interface WS extends _A<typeof makeWS> {}
+export interface WS extends ReturnType<typeof makeService> {}
 export const WS = tag<WS>()
-export const LiveWS = T.toLayer(WS)(makeWS)
+export const LiveWS = T.toLayer(WS)(T.succeedWith(makeService))
+
+// Helpers
+export const open = (
+  url: string,
+  out: OutboundQueue,
+  options?: Ws.ClientOptions,
+) => T.accessService(WS)(({ open }) => open(url, out, options))

package/bot.d.ts

@@ -0,0 +1 @@
+export {};

package/bot.js

@@ -0,0 +1,28 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+const tslib_1 = require("tslib");
+const tracing_1 = tslib_1.__importStar(require("@effect-ts/core/Tracing"));
+const fileName_1 = "bot.ts";
+const T = tslib_1.__importStar(require("@effect-ts/core/Effect"));
+const Function_1 = require("@effect-ts/core/Function");
+const R = tslib_1.__importStar(require("@effect-ts/node/Runtime"));
+const CB = tslib_1.__importStar(require("callbag-effect-ts"));
+const Dotenv = tslib_1.__importStar(require("dotenv"));
+const Log_1 = require("./Log");
+const mod_1 = require("./mod");
+const types_1 = require("./types");
+Dotenv.config();
+const Config = (0, mod_1.makeConfigLayer)({
+    token: process.env.DISCORD_BOT_TOKEN,
+    gateway: {
+        intents: types_1.GatewayIntents.GUILDS | types_1.GatewayIntents.GUILD_MESSAGES,
+    },
+});
+// logger
+const logger = T.chain_(mod_1.gateway, ({ raw }) => CB.forEach_(raw, (p) => (0, Log_1.log)(p)), fileName_1 + ":27:24");
+// ping command
+const pingPong = (CB.forEach_(CB.filter_((0, mod_1.fromDispatch)("MESSAGE_CREATE"), (msg) => msg.content.startsWith("!ping")), (msg) => (0, mod_1.rest)((r) => r.createMessage(msg.channel_id, {
+    content: "Pong!",
+}), fileName_1 + ":34:9")));
+(R.runMain(T.provideSomeLayer(Config)(T.provideSomeLayer(mod_1.DebugEnv)(T.zipPar(pingPong, fileName_1 + ":45:11")(T.zipPar(logger, fileName_1 + ":44:11")(mod_1.run))))));
+//# sourceMappingURL=bot.js.map

package/bot.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"bot.js","sourceRoot":"","sources":["bot.ts"],"names":[],"mappings":";;;;;AAAA,kEAA2C;AAC3C,uDAA+C;AAC/C,mEAA4C;AAC5C,8DAAuC;AACvC,uDAAgC;AAChC,+BAA2B;AAC3B,+BAOc;AACd,mCAAwC;AAExC,MAAM,CAAC,MAAM,EAAE,CAAA;AAEf,MAAM,MAAM,GAAG,IAAA,qBAAe,EAAC;IAC7B,KAAK,EAAE,OAAO,CAAC,GAAG,CAAC,iBAAkB;IACrC,OAAO,EAAE;QACP,OAAO,EAAE,sBAAc,CAAC,MAAM,GAAG,sBAAc,CAAC,cAAc;KAC/D;CACF,CAAC,CAAA;AAEF,SAAS;AACT,MAAM,MAAM,GAAG,CAAC,CAAC,MAAM,CAAC,aAAO,EAAE,CAAC,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC,EAAE,CAAC,QAAQ,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,IAAA,SAAG,EAAC,CAAC,CAAC,CAAC,wBAAC,CAAA;AAE9E,eAAe;AACf,MAAM,QAAQ,IAGZ,EAAE,UADF,EAAE,SADF,IAAA,kBAAY,EAAC,gBAAgB,CAAC,EACpB,CAAC,GAAG,EAAE,EAAE,CAAC,GAAG,CAAC,OAAO,CAAC,UAAU,CAAC,OAAO,CAAC,GACvC,CAAC,GAAG,EAAE,EAAE,CACjB,IAAA,UAAI,EAAC,CAAC,CAAC,EAAE,EAAE,CACT,CAAC,CAAC,aAAa,CAAC,GAAG,CAAC,UAAU,EAAE;IAC9B,OAAO,EAAE,OAAO;CACjB,CAAC,uBACH,EAEJ,CAAA;AAED,CAOE,CAAC,CAAC,OAAO,CADT,CAAC,CAAC,gBAAgB,CAAC,MAAM,CAAC,CAD1B,CAAC,CAAC,gBAAgB,CAAC,cAAQ,CAAC,CAF5B,CAAC,CAAC,MAAM,CAAC,QAAQ,wBAAC,CADlB,CAAC,CAAC,MAAM,CAAC,MAAM,wBAAC,CADhB,SAAG,OAOJ"}

package/bot.ts

@@ -0,0 +1,50 @@
+import * as T from "@effect-ts/core/Effect"
+import { pipe } from "@effect-ts/core/Function"
+import * as R from "@effect-ts/node/Runtime"
+import * as CB from "callbag-effect-ts"
+import * as Dotenv from "dotenv"
+import { log } from "./Log"
+import {
+  DebugEnv,
+  fromDispatch,
+  gateway,
+  makeConfigLayer,
+  rest,
+  run,
+} from "./mod"
+import { GatewayIntents } from "./types"
+
+Dotenv.config()
+
+const Config = makeConfigLayer({
+  token: process.env.DISCORD_BOT_TOKEN!,
+  gateway: {
+    intents: GatewayIntents.GUILDS | GatewayIntents.GUILD_MESSAGES,
+  },
+})
+
+// logger
+const logger = T.chain_(gateway, ({ raw }) => CB.forEach_(raw, (p) => log(p)))
+
+// ping command
+const pingPong = pipe(
+  fromDispatch("MESSAGE_CREATE"),
+  CB.filter((msg) => msg.content.startsWith("!ping")),
+  CB.forEach((msg) =>
+    rest((r) =>
+      r.createMessage(msg.channel_id, {
+        content: "Pong!",
+      }),
+    ),
+  ),
+)
+
+pipe(
+  run,
+  T.zipPar(logger),
+  T.zipPar(pingPong),
+
+  T.provideSomeLayer(DebugEnv),
+  T.provideSomeLayer(Config),
+  R.runMain,
+)

package/esm/DiscordConfig/index.js

@@ -0,0 +1,26 @@
+import * as tracing_1 from "@effect-ts/core/Tracing";
+const fileName_1 = "DiscordConfig/index.ts";
+import { tag } from "@effect-ts/system/Has";
+import * as T from "@effect-ts/core/Effect";
+import { flow } from "@effect-ts/system/Function";
+import { fromValue } from "@effect-ts/system/Layer";
+import { GatewayIntents } from "../types";
+const VERSION = 9;
+export const DiscordConfig = tag();
+export const make = ({ token, rest, gateway }) => ({
+    _tag: "DiscordConfig",
+    token,
+    rest: {
+        baseUrl: `https://discord.com/api/v${VERSION}`,
+        ...(rest ?? {}),
+    },
+    gateway: {
+        intents: GatewayIntents.GUILDS,
+        ...(gateway ?? {}),
+    },
+});
+export const makeLayer = flow(make, fromValue(DiscordConfig));
+export const token = T.accessService(DiscordConfig)(({ token }) => token, fileName_1 + ":43:52");
+export const rest = T.accessService(DiscordConfig)(({ rest }) => rest, fileName_1 + ":44:51");
+export const gateway = T.accessService(DiscordConfig)(({ gateway }) => gateway, fileName_1 + ":45:54");
+//# sourceMappingURL=index.js.map

package/esm/DiscordConfig/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../DiscordConfig/index.ts"],"names":[],"mappings":";;AAAA,OAAO,EAAE,GAAG,EAAE,MAAM,uBAAuB,CAAA;AAC3C,OAAO,KAAK,CAAC,MAAM,wBAAwB,CAAA;AAC3C,OAAO,EAAE,IAAI,EAAE,MAAM,4BAA4B,CAAA;AACjD,OAAO,EAAE,SAAS,EAAE,MAAM,yBAAyB,CAAA;AACnD,OAAO,EAAE,cAAc,EAAkB,MAAM,UAAU,CAAA;AAEzD,MAAM,OAAO,GAAG,CAAC,CAAA;AAajB,MAAM,CAAC,MAAM,aAAa,GAAG,GAAG,EAAiB,CAAA;AAQjD,MAAM,CAAC,MAAM,IAAI,GAAG,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,OAAO,EAAY,EAAiB,EAAE,CAAC,CAAC;IAC1E,IAAI,EAAE,eAAe;IACrB,KAAK;IACL,IAAI,EAAE;QACJ,OAAO,EAAE,4BAA4B,OAAO,EAAE;QAC9C,GAAG,CAAC,IAAI,IAAI,EAAE,CAAC;KAChB;IACD,OAAO,EAAE;QACP,OAAO,EAAE,cAAc,CAAC,MAAM;QAC9B,GAAG,CAAC,OAAO,IAAI,EAAE,CAAC;KACnB;CACF,CAAC,CAAA;AAEF,MAAM,CAAC,MAAM,SAAS,GAAG,IAAI,CAAC,IAAI,EAAE,SAAS,CAAC,aAAa,CAAC,CAAC,CAAA;AAE7D,MAAM,CAAC,MAAM,KAAK,GAAG,CAAC,CAAC,aAAa,CAAC,aAAa,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,KAAK,wBAAC,CAAA;AACzE,MAAM,CAAC,MAAM,IAAI,GAAG,CAAC,CAAC,aAAa,CAAC,aAAa,CAAC,CAAC,CAAC,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,IAAI,wBAAC,CAAA;AACtE,MAAM,CAAC,MAAM,OAAO,GAAG,CAAC,CAAC,aAAa,CAAC,aAAa,CAAC,CAAC,CAAC,EAAE,OAAO,EAAE,EAAE,EAAE,CAAC,OAAO,wBAAC,CAAA"}

package/esm/DiscordGateway/index.js

@@ -0,0 +1,20 @@
+import * as tracing_1 from "@effect-ts/core/Tracing";
+const fileName_1 = "DiscordGateway/index.ts";
+import * as T from "@effect-ts/core/Effect";
+import * as M from "@effect-ts/core/Effect/Managed";
+import { identity, pipe } from "@effect-ts/core/Function";
+import { tag } from "@effect-ts/core/Has";
+import * as Shard from "../DiscordShard";
+import * as Utils from "./utils";
+import * as CB from "callbag-effect-ts";
+const make = (M.map_(Shard.make([0, 1]), (shard) => ({
+    _tag: "DiscordGatewayService",
+    ...shard,
+    fromDispatch: Utils.fromDispatch(shard.dispatch),
+}), fileName_1 + ":13:8"));
+export const DiscordGateway = tag();
+export const LiveDiscordGateway = M.toLayer_(make, DiscordGateway);
+export const gateway = T.accessService(DiscordGateway)(identity, fileName_1 + ":27:55");
+export const run = T.accessServiceM(DiscordGateway)(({ run }) => run, fileName_1 + ":28:52");
+export const fromDispatch = (event) => (CB.unwrap(T.accessService(DiscordGateway)(({ fromDispatch }) => fromDispatch(event), fileName_1 + ":32:36")));
+//# sourceMappingURL=index.js.map

package/esm/DiscordGateway/index.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"index.js","sourceRoot":"","sources":["../../DiscordGateway/index.ts"],"names":[],"mappings":";;AAAA,OAAO,KAAK,CAAC,MAAM,wBAAwB,CAAA;AAC3C,OAAO,KAAK,CAAC,MAAM,gCAAgC,CAAA;AACnD,OAAO,EAAE,QAAQ,EAAE,IAAI,EAAE,MAAM,0BAA0B,CAAA;AACzD,OAAO,EAAE,GAAG,EAAE,MAAM,qBAAqB,CAAA;AAEzC,OAAO,KAAK,KAAK,MAAM,iBAAiB,CAAA;AACxC,OAAO,KAAK,KAAK,MAAM,SAAS,CAAA;AAChC,OAAO,KAAK,EAAE,MAAM,mBAAmB,CAAA;AAGvC,MAAM,IAAI,IAER,CAAC,MADD,KAAK,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAEhB,CAAC,KAAK,EAAE,EAAE,CACR,CAAC;IACC,IAAI,EAAE,uBAAuB;IAC7B,GAAG,KAAK;IACR,YAAY,EAAE,KAAK,CAAC,YAAY,CAAC,KAAK,CAAC,QAAQ,CAAC;CACvC,CAAA,wBAEhB,CAAA;AAGD,MAAM,CAAC,MAAM,cAAc,GAAG,GAAG,EAAkB,CAAA;AACnD,MAAM,CAAC,MAAM,kBAAkB,GAAG,CAAC,UAAyB,IAAI,EAApB,cAAc,CAAO,CAAA;AAEjE,MAAM,CAAC,MAAM,OAAO,GAAG,CAAC,CAAC,aAAa,CAAC,cAAc,CAAC,CAAC,QAAQ,wBAAC,CAAA;AAChE,MAAM,CAAC,MAAM,GAAG,GAAG,CAAC,CAAC,cAAc,CAAC,cAAc,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,EAAE,EAAE,CAAC,GAAG,wBAAC,CAAA;AAErE,MAAM,CAAC,MAAM,YAAY,GAAG,CAAgC,KAAQ,EAAE,EAAE,EAGpE,EAAE,CAAC,MAAM,CADT,CAAC,CAAC,aAAa,CAAC,cAAc,CAAC,CAAC,CAAC,EAAE,YAAY,EAAE,EAAE,EAAE,CAAC,YAAY,CAAC,KAAK,CAAC,wBAAC,EAE3E,CAAA"}

package/esm/DiscordGateway/utils.js

@@ -0,0 +1,7 @@
+import * as tracing_1 from "@effect-ts/core/Tracing";
+const fileName_1 = "DiscordGateway/utils.ts";
+import { pipe } from "@effect-ts/core/Function";
+import * as CB from "callbag-effect-ts";
+import { memoize } from "../Utils/memoize";
+export const fromDispatch = (source) => memoize((event) => (CB.share(CB.map_(CB.filter_(source, (p) => p.t === event), (p) => p.d))));
+//# sourceMappingURL=utils.js.map

package/esm/DiscordGateway/utils.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"utils.js","sourceRoot":"","sources":["../../DiscordGateway/utils.ts"],"names":[],"mappings":";;AAAA,OAAO,EAAE,IAAI,EAAE,MAAM,0BAA0B,CAAA;AAC/C,OAAO,KAAK,EAAE,MAAM,mBAAmB,CAAA;AAEvC,OAAO,EAAE,OAAO,EAAE,MAAM,kBAAkB,CAAA;AAE1C,MAAM,CAAC,MAAM,YAAY,GAAG,CAC1B,MAA2D,EAGf,EAAE,CAC9C,OAAO,CAAC,CAAC,KAAK,EAAE,EAAE,EAId,EAAE,CAAC,KAAK,CADR,EAAE,MADF,EAAE,CAAC,OAAO,CAAC,MAAM,EAAE,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAC,KAAK,KAAK,CAAC,EACjC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,CAAQ,GAEzB,CACF,CAAA"}