(это основано на статье на http://bertails.org/2015/02/15/abstract-алгебраических-данных-типа)
Во-первых, я определяю абстрактную версию scala.Option
.
import scala.language.higherKinds
trait OptionSig {
type Option[+_]
type Some[+A] <: Option[A]
type None <: Option[Nothing]
}
abstract class OptionOps[Sig <: OptionSig] extends Extractors[Sig] {
def some[A](x: A): Sig#Some[A]
def none: Sig#None
def fold[A, B](opt: Sig#Option[A])(ifNone: => B, ifSome: A => B): B
}
Я хочу иметь возможность использовать сопоставление с образцом для Sig#Option[A]
, чтобы Extractors
выглядело так:
trait Extractors[Sig <: OptionSig] { self: OptionOps[Sig] =>
object Some {
def unapply[A](opt: Sig#Option[A]): scala.Option[A] =
fold(opt)(scala.None, a => scala.Some(a))
}
object None {
def unapply[A](opt: Sig#Option[A]): Option[Unit] =
fold(opt)(scala.Some(()), _ => scala.None)
}
}
Теперь я могу написать эту программу:
class Program[Sig <: OptionSig](implicit ops: OptionOps[Sig]) extends App {
import ops._
val opt: Sig#Option[Int] = some(42)
opt match {
case None(_) => sys.error("")
case Some(42) => println("yay")
case Some(_) => sys.error("")
}
}
И я могу проверить это с этой реализацией.
trait ScalaOption extends OptionSig {
type Option[+A] = scala.Option[A]
type Some[+A] = scala.Some[A]
type None = scala.None.type
}
object ScalaOption {
implicit object ops extends OptionOps[ScalaOption] {
def some[A](x: A): ScalaOption#Some[A] = scala.Some(x)
val none: ScalaOption#None = scala.None
def fold[A, B](opt: ScalaOption#Option[A])(ifNone: => B, ifSome: A => B): B =
opt match {
case scala.None => ifNone
case scala.Some(x) => ifSome(x)
}
}
}
object Main extends Program[ScalaOption]
Вроде работает, но есть один раздражающий момент, который я не могу понять.
С scala.Option
тип s
в Option(42) match { case s @ Some(42) => s }
равен Some[Int]
. Но с моим фрагментом выше это Sig#Option[Int]
, и вместо этого я хотел бы сделать его Sig#Some[Int]
.
Поэтому я попытался сделать следующее, чтобы быть ближе к тому, что scalac генерирует для своих классов case:
trait Extractors[Sig <: OptionSig] { self: OptionOps[Sig] =>
object Some {
def unapply[A](s: Sig#Some[A]): scala.Option[A] =
fold(s)(scala.None, a => scala.Some(a))
}
object None {
def unapply(n: Sig#None): Option[Unit] =
fold(n)(scala.Some(()), (_: Any) => scala.None)
}
}
Но теперь я получаю предупреждения, подобные следующему:
[warn] Main.scala:78: abstract type pattern Sig#None is unchecked since it is eliminated by erasure
[warn] case None(_) => sys.error("")
Я не уверен, почему это происходит, поскольку Sig#None
является подтипом Sig#Option[Int]
, и это известно во время компиляции.
Кроме того, время выполнения все еще в порядке, но предполагаемый тип все еще не тот, который я ожидал.
Итак, вопросы
- почему здесь упоминается стирание типа, несмотря на информацию о подтипах?
- как получить
Sig#Option[Int]
заs
в(some(42): Sig#Option[Int]) match { case s @ Some(42) => s }