2

假设我有容器标记

case class TypedString[T](value: String)

和偏函数技巧

abstract class PartFunc[Actual <: HList] {
    val poly: Poly

    def apply[L1 <: HList](l: L1)(implicit
                                  mapped: Mapped.Aux[Actual, TypedString, L1],
                                  mapper: Mapper[poly.type, L1]): L1 = l
}

映射器的多边形

object f extends (TypedString ~>> String) {
    def apply[T](s : TypedString[T]) = s.value
}

和结果方法

def func[Actual <: HList] = new PartFunc[Actual] {
    val poly = f
}

使用示例：

func[
    Int :: String :: HNil
](TypedString[Int]("42") :: TypedString[String]("hello") :: HNil)

此代码在编译时失败，因为编译器找不到Mapped隐式参数：

could not find implicit value for parameter mapped: 
    shapeless.ops.hlist.Mapped[shapeless.::[Int,shapeless.::[String,shapeless.HNil]],nottogether.MapperTest.TypedString]{type Out = shapeless.::[nottogether.MapperTest.TypedString[Int],shapeless.::[nottogether.MapperTest.TypedString[String],shapeless.HNil]]}
        ](TypedString[Int]("42") :: TypedString[String]("hello") :: HNil)

但是，如果我们从签名中删除Mapper隐式参数，一切正常。PartFunc.apply(...)所以我不知道为什么以及如何Mapper影响Mapped.

4

1 回答 1

3

编译器抱怨Mapped实际问题是Mapper. 我不知道为什么，但是当一个抽象值或构造函数参数Mapped是.poly.typepolyPartFunc

一个解决方案是 在我们创建时创建poly一个P <: Poly并传递单例类型：ActualPartFunc

import shapeless._
import ops.hlist.{Mapped, Mapper}
import poly.~>>

abstract class PartFunc[Actual <: HList, P <: Poly] {
  val poly: P
  def apply[L1 <: HList](l: L1)(implicit
    mapped: Mapped.Aux[Actual, TypedString, L1],
    mapper: Mapper[P, L1]
  ): mapper.Out = mapper(l)
}

def func[Actual <: HList] = new PartFunc[Actual, f.type] { val poly = f }

或普通班：

class PartFunc[Actual <: HList, P <: Poly](poly: P) {
  def apply[L1 <: HList](l: L1)(implicit
    mapped: Mapped.Aux[Actual, TypedString, L1],
    mapper: Mapper[P, L1]
  ): mapper.Out = mapper(l)
}

def func[Actual <: HList] = new PartFunc[Actual, f.type](f)

请注意，我们现在必须写mapper(l)，因为l map poly仍会寻找Mapped[poly.type, L1].

我们现在可以调用func：

func[
  Int :: String :: HNil
](TypedString[Int]("42") :: TypedString[String]("hello") :: HNil)
// String :: String :: HNil = 42 :: hello :: HNil

我相信对 Scala 类型系统有更深入了解的人可以为我们提供更清晰的解释，并可能为这个问题提供更好的解决方案。

于 2016-06-30T18:31:00.333 回答