Traverse.Event
type ('v, 'e) t = [
| `Enter of 'v * int * ('v, 'e) path |
| `Exit of 'v |
| `Edge of 'v * 'e * 'v * edge_kind |
]
A traversal is a sequence of such events
val get_vertex : ('v, 'e) t -> ('v * [ `Enter | `Exit ]) option
val get_enter : ('v, 'e) t -> 'v option
val get_exit : ('v, 'e) t -> 'v option
val get_edge : ('v, 'e) t -> ('v * 'e * 'v) option