扩展一个共同特征的不成形HList类型

Question

我有一些基于不成形HLists的类型：

type t1 = Int :: String :: Int :: HNil
type t2 = String :: String :: Int :: HNil

我想定义一个sealed traitST，它是所有类型的超级类型，因此，如果我有以下函数：

def fun(x:ST) = …

以下内容有效：

fun(5 :: "foo" :: 3 :: HNil)       // It is a t1
fun("foo" :: "bar" :: 42 :: HNil)  // It is a t2

但以下内容不适用：

fun(5 :: 3 :: HNil)

如何将t1和t2定义为ST的子类型？

更新

我认为副产品可能是一个解决方案

type ST = t1 :+: t2 :+: CNil

fun(Coproduct[ST](5 :: "foo" :: 3 :: HNil)) // compiles
fun(Coproduct[ST](5 :: 3 :: HNil))          // does not compile




Answer 1

不可能使用别名将类型“生成”为任何内容的子类型，别名只是一个新名称。虽然可以使用副产品，但创建一个新的类型类可能更自然：

import shapeless._

type t1 = Int :: String :: Int :: HNil
type t2 = String :: String :: Int :: HNil

trait Funnable[A]

implicit object t1Funnable extends Funnable[t1]
implicit object t2Funnable extends Funnable[t2]

def fun[A: Funnable](x: A) = x

现在您要编译的行会，而您不要编译的行不会。