• Home
• de.lhns
• common-core_3
• 0.1.0
• source code
• Traced.scala

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

de.lhns.common.aspect.Traced.scala Maven / Gradle / Ivy

package de.lhns.common.aspect

import cats.Show
import cats.arrow.FunctionK
import cats.syntax.all.*
import cats.tagless.aop.Aspect
import cats.tagless.syntax.all.*
import org.typelevel.otel4s.Attribute
import org.typelevel.otel4s.trace.Tracer

def traced[Alg[_[_]], F[_] : Tracer](alg: Alg[F])(implicit aspect: Aspect.Domain[Alg, Show]): Alg[F] =
  alg
    .weaveDomain[Show]
    .mapK(new FunctionK[Aspect.Weave.Domain[F, Show, *], F] {
      override def apply[A](fa: Aspect.Weave.Domain[F, Show, A]): F[A] =
        Tracer[F].span(
          fa.codomain.name,
          fa.domain.flatMap(_.map { param =>
            import param.instance
            Attribute(param.name, param.target.value.show)
          }) *
        ).surround {
          fa.codomain.target
        }
    })