feat: callRest helper

DiscordREST/index.ts

@@ -1,11 +1,13 @@
 import * as T from "@effect-ts/core/Effect"
-import { tag } from "@effect-ts/system/Has"
+import { Has, tag } from "@effect-ts/system/Has"
 import Axios, { AxiosInstance, AxiosRequestConfig, Method } from "axios"
 import * as Config from "../DiscordConfig"
 import { createRoutes, Endpoints } from "../types"
 import * as Http from "./http"
+import { Response, RESTError } from "./types"
 
-export interface DiscordREST extends Endpoints<AxiosRequestConfig> {
+interface AxiosEndpoints extends Endpoints<AxiosRequestConfig> {}
+export interface DiscordREST extends AxiosEndpoints {
   _tag: "DiscordREST"
   axios: AxiosInstance
 }
@@ -81,3 +83,15 @@ const make = T.gen(function* (_) {
 export const LiveDiscordREST = T.toLayer(DiscordREST)(make)
 
 export const rest = T.accessServiceM(DiscordREST)
+
+type InferResponse<T extends (...args: any[]) => Response<any>> = T extends (
+  ...args: any[]
+) => Response<infer R>
+  ? R
+  : never
+
+export const call = <K extends keyof AxiosEndpoints>(
+  method: K,
+  ...args: Parameters<AxiosEndpoints[K]>
+): T.Effect<Has<DiscordREST>, RESTError, InferResponse<AxiosEndpoints[K]>> =>
+  rest((r) => (r[method] as any)(...args))

bot.ts

@@ -5,6 +5,7 @@ import * as CB from "callbag-effect-ts"
 import * as Dotenv from "dotenv"
 import { log } from "./Log"
 import {
+  callRest,
   DebugEnv,
   fromDispatch,
   gateway,
@@ -31,11 +32,9 @@ 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!",
-      }),
-    ),
+    callRest("createMessage", msg.channel_id, {
+      content: "Pong!",
+    }),
   ),
 )
 

mod.ts

@@ -16,4 +16,4 @@ export const DefaultEnv = DiscordEnv["+++"](LiveLog)
 
 export { makeLayer as makeConfigLayer } from "./DiscordConfig"
 export { gateway, fromDispatch, run } from "./DiscordGateway"
-export { rest } from "./DiscordREST"
+export { rest, call as callRest } from "./DiscordREST"