kleisli slightly simpler

Author: sideeffffect

http4s-blaze-server/src/main/scala/com/avast/server/toolkit/http4s/Http4sRouting.scala

@@ -11,13 +11,10 @@ object Http4sRouting {
 
   /** Makes [[org.http4s.HttpApp]] from [[org.http4s.HttpRoutes]] */
   def make[F[_]: Monad](routes: HttpRoutes[F], more: HttpRoutes[F]*): HttpApp[F] = {
-    val semigroup = Kleisli.catsDataSemigroupKForKleisli[OptionT[F, *], Request[F]](OptionT.catsDataSemigroupKForOptionT[F])
+    val semigroup = Kleisli.catsDataSemigroupKForKleisli[OptionT[F, *], Request[F]]
 
     more
-      .foldLeft[HttpRoutes[F]](routes) {
-        case (acc, moreRoutes) =>
-          semigroup.combineK(acc, moreRoutes)
-      }
+      .foldLeft[HttpRoutes[F]](routes)(semigroup.combineK)
       .orNotFound
   }