Query work
All checks were successful
Lint / lint (push) Successful in 15s

This commit is contained in:
Julien Valverdé
2025-03-07 22:23:44 +01:00
parent cabceaffcd
commit 7935293bc3
8 changed files with 75 additions and 63 deletions

View File

@@ -1,6 +1,6 @@
import { HttpClient, HttpClientError } from "@effect/platform"
import { HttpClientError } from "@effect/platform"
import { QueryService } from "@reffuse/extension-query"
import { Console, Effect, ParseResult, Schema } from "effect"
import { ParseResult, Schema } from "effect"
export const Result = Schema.Array(Schema.String)
@@ -9,14 +9,3 @@ export class Uuid4Query extends QueryService.Tag("Uuid4Query")<Uuid4Query,
typeof Result.Type,
HttpClientError.HttpClientError | ParseResult.ParseError
>() {}
export const Uuid4QueryLive = QueryService.layer(Uuid4Query, {
query: Console.log("Querying...").pipe(
Effect.andThen(Effect.sleep("500 millis")),
Effect.andThen(HttpClient.get("https://www.uuidtools.com/api/generate/v4")),
HttpClient.withTracerPropagation(false),
Effect.flatMap(res => res.json),
Effect.flatMap(Schema.decodeUnknown(Result)),
Effect.scoped,
)
})