effect-redis 0.0.1 → 0.0.3

package/dist/redis.d.ts

@@ -0,0 +1,40 @@
+import { Context, Effect, Layer } from 'effect';
+import { createClient } from 'redis';
+declare const RedisError_base: new <A extends Record<string, any> = {}>(args: import("effect/Types").Equals<A, {}> extends true ? void : { readonly [P in keyof A as P extends "_tag" ? never : P]: A[P]; }) => import("effect/Cause").YieldableError & {
+    readonly _tag: "RedisError";
+} & Readonly<A>;
+export declare class RedisError extends RedisError_base<{
+    cause: unknown;
+    message: string;
+}> {
+}
+interface RedisConnectionOptionsShape {
+    options?: Parameters<typeof createClient>[0];
+}
+declare const RedisConnectionOptions_base: Context.TagClass<RedisConnectionOptions, "RedisConnectionOptions", RedisConnectionOptionsShape>;
+declare class RedisConnectionOptions extends RedisConnectionOptions_base {
+}
+declare const RedisConnectionOptionsLive: (options?: Parameters<typeof createClient>[0]) => Layer.Layer<RedisConnectionOptions, never, never>;
+interface RedisShape {
+    use: <T>(fn: (client: ReturnType<typeof createClient>) => T) => Effect.Effect<Awaited<T>, RedisError, never>;
+}
+declare const Redis_base: Context.TagClass<Redis, "Redis", RedisShape>;
+declare class Redis extends Redis_base {
+}
+declare const RedisLive: Layer.Layer<Redis, RedisError, RedisConnectionOptions>;
+interface RedisPubSubShape {
+    publish: (channel: string, message: string) => Effect.Effect<void, RedisError, never>;
+    subscribe: (channel: string, handler: (message: string) => void) => Effect.Effect<void, RedisError, never>;
+}
+declare const RedisPubSub_base: Context.TagClass<RedisPubSub, "RedisPubSub", RedisPubSubShape>;
+declare class RedisPubSub extends RedisPubSub_base {
+}
+interface RedisPersistenceShape {
+    setValue: (key: string, value: string) => Effect.Effect<void, RedisError, never>;
+}
+declare const RedisPersistence_base: Context.TagClass<RedisPersistence, "RedisPersistence", RedisPersistenceShape>;
+declare class RedisPersistence extends RedisPersistence_base {
+}
+declare const RedisPersistenceLive: Layer.Layer<RedisPersistence, RedisError, RedisConnectionOptions>;
+declare const RedisPubSubLive: Layer.Layer<RedisPubSub, RedisError, RedisConnectionOptions>;
+export { RedisPersistence, RedisPubSub, RedisConnectionOptions, Redis, RedisPersistenceLive, RedisPubSubLive, RedisConnectionOptionsLive, RedisLive, };

package/package.json

@@ -1,12 +1,12 @@
 {
   "name": "effect-redis",
-  "version": "0.0.1",
+  "version": "0.0.3",
   "description": "Simple Effect wrapper for Redis.",
   "module": "dist/index.js",
   "main": "dist/index.js",
   "types": "dist/index.d.ts",
   "type": "module",
-  "files": ["dist", "README.md"],
+  "files": ["dist", "src", "README.md"],
   "scripts": {
     "build:main": "bun build --minify-syntax --minify-whitespace ./src/index.ts --outdir ./dist --target node --format esm",
     "build:types": "bun tsc --emitDeclarationOnly --outDir dist",
@@ -21,6 +21,9 @@
     "@types/bun": "latest"
   },
   "peerDependencies": {
-    "typescript": "^5"
-  }
+    "typescript": "^5",
+    "effect": "^3.15.4",
+    "redis": "^5.1.0"
+  },
+  "dependencies": {}
 }

package/src/index.ts

@@ -0,0 +1 @@
+export * from './redis';

package/src/redis.ts

@@ -0,0 +1,190 @@
+import { Context, Data, Effect, Layer } from 'effect';
+import { createClient } from 'redis';
+
+export class RedisError extends Data.TaggedError('RedisError')<{
+  cause: unknown;
+  message: string;
+}> {}
+
+interface RedisConnectionOptionsShape {
+  options?: Parameters<typeof createClient>[0];
+}
+class RedisConnectionOptions extends Context.Tag('RedisConnectionOptions')<
+  RedisConnectionOptions,
+  RedisConnectionOptionsShape
+>() {}
+
+const RedisConnectionOptionsLive = (
+  options?: Parameters<typeof createClient>[0],
+) =>
+  Layer.succeed(
+    RedisConnectionOptions,
+    RedisConnectionOptions.of({
+      options,
+    }),
+  );
+
+interface RedisShape {
+  use: <T>(
+    fn: (client: ReturnType<typeof createClient>) => T,
+  ) => Effect.Effect<Awaited<T>, RedisError, never>;
+}
+class Redis extends Context.Tag('Redis')<Redis, RedisShape>() {}
+
+const bootstrapRedisEffect = Effect.gen(function* () {
+  const client = yield* redisClientEffect;
+  return Redis.of({
+    use: (fn) =>
+      Effect.gen(function* () {
+        const result = yield* Effect.try({
+          try: () => fn(client),
+          catch: (e) =>
+            new RedisError({
+              cause: e,
+              message: 'Synchronous error in `Redis.use`',
+            }),
+        });
+        if (result instanceof Promise) {
+          return yield* Effect.tryPromise({
+            try: () => result,
+            catch: (e) =>
+              new RedisError({
+                cause: e,
+                message: 'Asynchronous error in `Redis.use`',
+              }),
+          });
+        }
+        return result;
+      }),
+  });
+});
+
+const RedisLive = Layer.scoped(Redis, bootstrapRedisEffect);
+
+interface RedisPubSubShape {
+  publish: (
+    channel: string,
+    message: string,
+  ) => Effect.Effect<void, RedisError, never>;
+  subscribe: (
+    channel: string,
+    handler: (message: string) => void,
+  ) => Effect.Effect<void, RedisError, never>;
+}
+
+class RedisPubSub extends Context.Tag('RedisPubSub')<
+  RedisPubSub,
+  RedisPubSubShape
+>() {}
+
+interface RedisPersistenceShape {
+  setValue: (
+    key: string,
+    value: string,
+  ) => Effect.Effect<void, RedisError, never>;
+}
+
+class RedisPersistence extends Context.Tag('RedisPersistence')<
+  RedisPersistence,
+  RedisPersistenceShape
+>() {}
+
+const redisClientEffect = Effect.gen(function* () {
+  const { options } = yield* RedisConnectionOptions;
+
+  return yield* Effect.acquireRelease(
+    Effect.tryPromise({
+      try: () =>
+        createClient(options)
+          .connect()
+          .then((r) => {
+            console.log('Connected to Redis');
+            r.on('error', (e) => {
+              console.log('Redis error(on error):', e.message);
+              r.destroy();
+            });
+            r.on('end', () => {
+              console.log('Connection to Redis ended');
+            });
+            return r;
+          }),
+      catch: (e) =>
+        new RedisError({
+          cause: e,
+          message: 'Error while connecting to Redis',
+        }),
+    }),
+    (client) =>
+      Effect.sync(() => {
+        if (client.isReady) {
+          client.quit();
+        }
+      }),
+  );
+});
+
+const bootstrapRedisPersistenceEffect = Effect.gen(function* () {
+  const client = yield* redisClientEffect;
+
+  return RedisPersistence.of({
+    setValue: (key, value) =>
+      Effect.gen(function* () {
+        return yield* Effect.tryPromise({
+          try: () => client.set(key, value),
+          catch: (e) =>
+            new RedisError({
+              cause: e,
+              message: 'Error in `Redis.setValue`',
+            }),
+        });
+      }),
+  });
+});
+
+const RedisPersistenceLive = Layer.scoped(
+  RedisPersistence,
+  bootstrapRedisPersistenceEffect,
+);
+
+const bootstrapRedisPubSubEffect = Effect.gen(function* () {
+  const clientPublish = yield* redisClientEffect;
+  const clientSubscribe = yield* redisClientEffect;
+
+  return RedisPubSub.of({
+    publish: (channel, message) =>
+      Effect.gen(function* () {
+        return yield* Effect.tryPromise({
+          try: () => clientPublish.publish(channel, message),
+          catch: (e) =>
+            new RedisError({
+              cause: e,
+              message: 'Error in `Redis.publish`',
+            }),
+        });
+      }),
+    subscribe: (channel, handler) =>
+      Effect.gen(function* () {
+        return yield* Effect.tryPromise({
+          try: () => clientSubscribe.subscribe(channel, handler),
+          catch: (e) =>
+            new RedisError({
+              cause: e,
+              message: 'Error in `Redis.subscribe`',
+            }),
+        });
+      }),
+  });
+});
+
+const RedisPubSubLive = Layer.scoped(RedisPubSub, bootstrapRedisPubSubEffect);
+
+export {
+  RedisPersistence,
+  RedisPubSub,
+  RedisConnectionOptions,
+  Redis,
+  RedisPersistenceLive,
+  RedisPubSubLive,
+  RedisConnectionOptionsLive,
+  RedisLive,
+};