Add dump request route

src/main/scala/h1rono/BotRoutes.scala

@@ -4,6 +4,7 @@ import cats.effect.Sync
 import cats.implicits._
 import org.http4s.HttpRoutes
 import org.http4s.dsl.Http4sDsl
+import org.http4s.Response
 
 object BotRoutes {
   def helloWorldRoutes[F[_]: Sync](H: HelloWorld[F]): HttpRoutes[F] = {
@@ -16,4 +17,14 @@ object BotRoutes {
       } yield resp
     }
   }
+
+  def dumpRequestRoutes[F[_]: Sync](D: DumpReq[F]): HttpRoutes[F] = {
+    val dsl = new Http4sDsl[F] {}
+    import dsl._
+    HttpRoutes.of[F] { case req @ _ -> Root / "dump" =>
+      for {
+        status <- D.dump(DumpReq.Req(req))
+      } yield Response(status = status)
+    }
+  }
 }

src/main/scala/h1rono/BotServer.scala

@@ -1,21 +1,25 @@
 package h1rono
 
 import cats.effect.Async
+import cats.syntax.all._
 import com.comcast.ip4s._
 import fs2.io.net.Network
 import org.http4s.ember.server.EmberServerBuilder
 import org.http4s.implicits._
+import cats.effect.std.Console
 
 object BotServer {
-  def run[F[_]: Async: Network]: F[Nothing] = {
+  def run[F[_]: Async: Network: Console]: F[Nothing] = {
     val helloWorldAlg = HelloWorld.impl[F]
+    val dumpReqAlg = DumpReq.impl[F]
 
     // Combine Service Routes into an HttpApp.
     // Can also be done via a Router if you
     // want to extract segments not checked
     // in the underlying routes.
     val httpApp = (
-      BotRoutes.helloWorldRoutes[F](helloWorldAlg)
+      BotRoutes.helloWorldRoutes[F](helloWorldAlg) <+>
+        BotRoutes.dumpRequestRoutes[F](dumpReqAlg)
     ).orNotFound
 
     for {

src/main/scala/h1rono/DumpReq.scala

@@ -0,0 +1,23 @@
+package h1rono
+
+import org.http4s.Request
+import cats.effect.std._
+import cats.syntax.all._
+import cats.effect.kernel.Async
+import _root_.org.http4s.Status
+
+trait DumpReq[F[_]] {
+  def dump(req: DumpReq.Req[F]): F[Status]
+}
+
+object DumpReq {
+  final case class Req[F[_]](req: Request[F]) extends AnyVal
+
+  def impl[F[_]: Async: Console]: DumpReq[F] = new DumpReq[F] {
+    def dump(req: Req[F]): F[Status] = for {
+      _ <- Console[F].println(req.req)
+      body <- req.req.as[String]
+      _ <- Console[F].println(body)
+    } yield Status.NoContent
+  }
+}