1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
package magnolia.examples
import scala.language.existentials
import scala.language.higherKinds
import magnolia._
import scala.language.experimental.macros
trait Show[Out, T] { def show(value: T): Out }
object Show {
type Typeclass[T] = Show[String, T]
def combine[T](ctx: CaseClass[Typeclass, T]): Show[String, T] = new Show[String, T] {
def show(value: T) = ctx.parameters.map { param =>
s"${param.label}=${param.typeclass.show(param.dereference(value))}"
}.mkString(s"${ctx.typeName.split("\\.").last}(", ",", ")")
}
def dispatch[T](ctx: SealedTrait[Typeclass, T]): Show[String, T] = new Show[String, T] {
def show(value: T): String = ctx.dispatch(value) { sub => sub.typeclass.show(sub.cast(value)) }
}
implicit val string: Show[String, String] = new Show[String, String] { def show(s: String): String = s }
implicit val int: Show[String, Int] = new Show[String, Int] { def show(s: Int): String = s.toString }
implicit def gen[T]: Show[String, T] = macro Magnolia.gen[T]
}
|