Scala 3 - Cats effect - Akka Http Marshalling

FMarshaller.scala

import akka.http.scaladsl.marshalling.{GenericMarshallers, ToResponseMarshaller}
import cats.Id
import cats.effect.IO
import cats.effect.std.Dispatcher
import cats.syntax.apply.*
import scala.concurrent.Future

object FMarshaller:
  given [A](using m: ToResponseMarshaller[A]): ToResponseMarshaller[Future[A]] =
    GenericMarshallers.futureMarshaller

  given [A](using dispatcher: Dispatcher[IO], m: ToResponseMarshaller[A]): ToResponseMarshaller[IO[A]] =
    GenericMarshallers.futureMarshaller(m).compose(dispatcher.unsafeToFuture)

  given [A](using m: ToResponseMarshaller[A]): ToResponseMarshaller[Id[A]] = m