Module Result.Infix

val (-->) : 'a H.t -> MyCFG.node -> 'a
val (<--) : 'a H.t -> (MyCFG.node * 'a) -> unit