从FieldType中提取HList密钥和值

Question

我想使用以下两种方法提取HList头部的键和值：

def getFieldName[K, V](value: FieldType[K, V])(implicit witness: Witness.Aux[K]): K = witness.value
def getFieldValue[K, V](value: FieldType[K, V]): V = value

我尝试过这个函数的几个变体，但我无法使它工作，我认为这可能是最接近正确的解决方案：

def getFieldNameValue[Key <: Symbol, Value <: AnyRef, Y <: HList, A <: Product](a : A)
                       (implicit 
                        gen : LabelledGeneric.Aux[A, FieldType[Key, Value] :: Y],
                        witness: shapeless.Witness.Aux[Key]) = {
    val aGen = gen.to(a).head
    (getFieldName(aGen), getFieldValue(aGen))
  }

但是它抛出了这个异常：

could not find implicit value for parameter gen: shapeless.LabelledGeneric.Aux[Ex,shapeless.labelled.FieldType[Key,Value] :: Y]

我想这样称呼它：

scala> case class Ex(i: Int, ii: Int)
scala> val ex = Ex(1,2)
scala> getFieldNameValue(ex)
res1: (String, Int) = (i,1)

Answer 1

这个变体起作用了：

  def getFieldNameValue[A <: Product, Repr <: HList,
                        K <: Symbol, V, T <: HList](a: A)(implicit 
    gen: LabelledGeneric.Aux[A, Repr],
    ev: Repr <:< (FieldType[K, V] :: T),
    witness: Witness.Aux[K]): (String, V) = {
    val record: Repr = gen.to(a)
    (witness.value.name, record.head)
  }

  getFieldNameValue(ex) // (i,1)

我想问题是你一步就做了太多的工作(请不要这样说)。