Скала (doobie): тип инвариантен

Question

Я работаю над проектом со Scala и Doobie. Я пытаюсь реализовать черту транзактора, которая может быть введена MacWire и использована с различными монадами Task/Future (например, для тестов).

import doobie.imports
import doobie.imports._
import fs2.Task
import fs2.util.{Catchable, Suspendable}

trait Transactor[M[_]] {
  implicit def catchable: Catchable[M] = implicitly
  val transactor: M[imports.Transactor[M]]
  def transact[A](q: ConnectionIO[A]): M[A] = catchable.flatMap(transactor)(xa => q.transact(xa))
}

case class H2Transactor[M[_]: Catchable: Suspendable](pure: PureConfig) extends Transactor[M] {
  override val transactor = doobie.h2.imports.H2Transactor[M](
    pure.config.persistence.name,
    pure.config.persistence.user.orNull,
    pure.config.persistence.password.orNull
  )
}

...
trait DatabaseModule { lazy val transactor = wire[H2Transactor[Task]] }
trait TestModule { lazy val transactor = wire[H2Transactor[IOLite]] }

Но я получаю эту ошибку:

[error] .../src/main/scala/.../persistence/transactor/H2Transactor.scala:13: type mismatch;
[error]  found   : M[doobie.h2.h2transactor.H2Transactor[M]]
[error]  required: M[doobie.imports.Transactor[M]]
[error]     (which expands to)  M[doobie.util.transactor.Transactor[M]]
[error] Note: doobie.h2.h2transactor.H2Transactor[M] <: doobie.imports.Transactor[M], but type M is invariant in type _.
[error] You may wish to define _ as +_ instead. (SLS 4.5)

Это работает для Task потому что это определяется как Task[+A]Дуби IOLite как IOLite[A], В любом случае, я могу сделать эту работу? Или я должен использовать другой тип монады вместо Task (не может измениться IOLite требуется для тестов doobie)?

Answer 1

Попробуй это:

override val transactor = doobie.h2.imports.H2Transactor[M](...).widen

widen это операция, которая доступна (в обоих cats а также scalaz) если M имеет Functor пример. Это позволяет вам лечить M[A] как M[B] если A это подкласс B