Como consertar este exercício com o invólucro endomórfico?
Este é um acompanhamento do meu anteriorPergunta, questão.
Suponha que eu precise encontrar um nó XML por caminho. Eu posso escrever uma função para obter um nó filho pelo nome
import scala.xml.{Node => XmlNode}
def child(name: String): XmlNode = Option[XmlNode] = _.child.find(_.label == name)
Eu componhochild
funções com kleisli; por exemplo.
scala> val a = <a><a0><a1><a2/></a1></a0></a>
a: scala.xml.Elem = <a><a0><a1><a2/></a1></a0></a>
scala> val find01 = Kleisli(child("a0")) >=> Kleisli(child("a1"))
findAB: scalaz.Kleisli[Option,scala.xml.Node,scala.xml.Node] = Kleisli(<function1>)
scala> find01(a)
res85: Option[scala.xml.Node] = Some(<a1><a2/></a1>)
Agora estou usando o invólucro endomórfico, mas ele não funciona:
scala> List(child("a0"), child("a1")).foldMap(Endomorphic.endoKleisli[Option, XmlNode])
res93: scalaz.Endomorphic[[α, β]scalaz.Kleisli[Option,α,β],scala.xml.Node] = Endomorphic(Kleisli(<function1>))
scala> res93.run(a)
res94: Option[scala.xml.Node] = None
Você poderia ajudar a encontrar o bug?