Как проверить XML с моноидом в Scala?

Question

Предположим, мне нужно проверить входной XML, например

<a>
  <a1>a1a1a1</a1>
  <a2>a2a2a2</a2>
  <a3/>
</a>

Мне нужно убедиться, что его корневой элемент имеет метку "a" и дети с ярлыками "a1", "a2", "a3" и тексты "a1a1a1", "a2a2a2" а также "" соответственно.

Я могу определить основные функции проверки следующим образом:

type Status = ... // either Ok or list of error messages
type Validate[A] = A => Status
type ValidateNode = Validate[scala.xml.Node]

val label(l: String): ValidateNode = ... // trivial
val text(t: String): ValidateNode =  ... // trivial
val child(vn: ValidateNode) = ... // find such a child "c" that "vn(c)" is Ok

поскольку Status является моноидом (изоморфным списку), то Validate[A] тоже моноид, и мы можем составить |+|

val a1: ValidateNode = label("a1") |+| text("a1a1a1")
val a2: ValidateNode = label("a2") |+| text("a2a2a2") 
val a3: ValidateNode = label("a3")
val a:  ValidateNode = label("a") |+| child(a1) |+| child(a2) |+| child(a3) 

Имеет ли это смысл? Как бы вы это исправить / улучшить?