make Http.middleware.withTracerDisabledWhen a Layer api (#2491)

.changeset/grumpy-pens-compare.md

@@ -0,0 +1,21 @@
+---
+"@effect/platform": minor
+---
+
+make Http.middleware.withTracerDisabledWhen a Layer api
+
+And add Http.middleware.withTracerDisabledWhenEffect to operate on Effect's.
+
+Usage is now:
+
+```ts
+import * as Http from "@effect/platform/HttpServer";
+
+Http.router.empty.pipe(
+  Http.router.get("/health"),
+  Http.server.serve(),
+  Http.middleware.withTracerDisabledWhen(
+    (request) => request.url === "/no-tracing",
+  ),
+);
+```

.changeset/healthy-trees-crash.md

@@ -0,0 +1,17 @@
+---
+"@effect/platform": patch
+---
+
+add Http.middleware.withTracerDisabledForUrls
+
+Allows you to disable the http server tracer for the given urls:
+
+```ts
+import * as Http from "@effect/platform/HttpServer";
+
+Http.router.empty.pipe(
+  Http.router.get("/health"),
+  Http.server.serve(),
+  Http.middleware.withTracerDisabledForUrls(["/health"])
+);
+```

packages/platform/src/Http/Middleware.ts

@@ -3,6 +3,7 @@
  */
 import type * as Effect from "effect/Effect"
 import type * as FiberRef from "effect/FiberRef"
+import type * as Layer from "effect/Layer"
 import type * as Predicate from "effect/Predicate"
 import * as internal from "../internal/http/middleware.js"
 import type * as App from "./App.js"
@@ -65,14 +66,37 @@ export const currentTracerDisabledWhen: FiberRef.FiberRef<Predicate.Predicate<Se
  * @category fiber refs
  */
 export const withTracerDisabledWhen: {
+  (
+    predicate: Predicate.Predicate<ServerRequest.ServerRequest>
+  ): <R, E, A>(layer: Layer.Layer<A, E, R>) => Layer.Layer<A, E, R>
+  <R, E, A>(
+    layer: Layer.Layer<A, E, R>,
+    predicate: Predicate.Predicate<ServerRequest.ServerRequest>
+  ): Layer.Layer<A, E, R>
+} = internal.withTracerDisabledWhen
+
+/**
+ * @since 1.0.0
+ * @category fiber refs
+ */
+export const withTracerDisabledWhenEffect: {
   (
     predicate: Predicate.Predicate<ServerRequest.ServerRequest>
   ): <R, E, A>(effect: Effect.Effect<A, E, R>) => Effect.Effect<A, E, R>
   <R, E, A>(
     effect: Effect.Effect<A, E, R>,
     predicate: Predicate.Predicate<ServerRequest.ServerRequest>
   ): Effect.Effect<A, E, R>
-} = internal.withTracerDisabledWhen
+} = internal.withTracerDisabledWhenEffect
+
+/**
+ * @since 1.0.0
+ * @category fiber refs
+ */
+export const withTracerDisabledForUrls: {
+  (urls: ReadonlyArray<string>): <R, E, A>(layer: Layer.Layer<A, E, R>) => Layer.Layer<A, E, R>
+  <R, E, A>(layer: Layer.Layer<A, E, R>, urls: ReadonlyArray<string>): Layer.Layer<A, E, R>
+} = internal.withTracerDisabledForUrls
 
 /**
  * @since 1.0.0

packages/platform/src/internal/http/middleware.ts

@@ -4,6 +4,7 @@ import * as Effect from "effect/Effect"
 import * as FiberRef from "effect/FiberRef"
 import { constFalse, dual } from "effect/Function"
 import { globalValue } from "effect/GlobalValue"
+import * as Layer from "effect/Layer"
 import * as Option from "effect/Option"
 import type * as Predicate from "effect/Predicate"
 import * as Headers from "../../Http/Headers.js"
@@ -36,6 +37,17 @@ export const currentTracerDisabledWhen = globalValue(
 
 /** @internal */
 export const withTracerDisabledWhen = dual<
+  (
+    predicate: Predicate.Predicate<ServerRequest.ServerRequest>
+  ) => <R, E, A>(layer: Layer.Layer<A, E, R>) => Layer.Layer<A, E, R>,
+  <R, E, A>(
+    layer: Layer.Layer<A, E, R>,
+    predicate: Predicate.Predicate<ServerRequest.ServerRequest>
+  ) => Layer.Layer<A, E, R>
+>(2, (self, pred) => Layer.locally(self, currentTracerDisabledWhen, pred))
+
+/** @internal */
+export const withTracerDisabledWhenEffect = dual<
   (
     predicate: Predicate.Predicate<ServerRequest.ServerRequest>
   ) => <R, E, A>(effect: Effect.Effect<A, E, R>) => Effect.Effect<A, E, R>,
@@ -45,6 +57,17 @@ export const withTracerDisabledWhen = dual<
   ) => Effect.Effect<A, E, R>
 >(2, (self, pred) => Effect.locally(self, currentTracerDisabledWhen, pred))
 
+/** @internal */
+export const withTracerDisabledForUrls = dual<
+  (
+    urls: ReadonlyArray<string>
+  ) => <R, E, A>(layer: Layer.Layer<A, E, R>) => Layer.Layer<A, E, R>,
+  <R, E, A>(
+    layer: Layer.Layer<A, E, R>,
+    urls: ReadonlyArray<string>
+  ) => Layer.Layer<A, E, R>
+>(2, (self, urls) => Layer.locally(self, currentTracerDisabledWhen, (req) => urls.includes(req.url)))
+
 /** @internal */
 export const logger = make((httpApp) => {
   let counter = 0