Use allocatedCase instead of allocated

typelevel · Mar 14, 2024 · 9d77058 · 9d77058
1 parent ff2f791
commit 9d77058
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/modules/http4s/src/main/scala/natchez/http4s/NatchezMiddleware.scala b/modules/http4s/src/main/scala/natchez/http4s/NatchezMiddleware.scala
@@ -97,7 +97,7 @@ object NatchezMiddleware {
     implicit ev: MonadCancel[F, Throwable]
   ): Client[F] =
     Client { req =>
-      Resource {
+      Resource.applyFull { cancelable =>
         Trace[F].span("http4s-client-request") {
           for {
             knl  <- Trace[F].kernel
@@ -106,7 +106,7 @@ object NatchezMiddleware {
                       "client.http.method" -> req.method.toString
                     )
             reqʹ = req.withHeaders(knl.toHttp4sHeaders ++ req.headers) // prioritize request headers over kernel ones
-            rsrc <- client.run(reqʹ).allocated
+            rsrc <- cancelable(client.run(reqʹ).allocatedCase)
             _    <- Trace[F].put("client.http.status_code" -> rsrc._1.status.code.toString())
           } yield rsrc
         }