Result.Infix
val (-->) : 'a H.t -> ResultNode.t -> 'a
val (<--) : 'a H.t -> (ResultNode.t * 'a) -> unit