ViolationSequence.WaypointType
type t =
| Assumption of Assumption.t
| Target of Target.t
| FunctionEnter of FunctionEnter.t
| FunctionReturn of FunctionReturn.t
| Branching of Branching.t
val waypoint_type : t -> string
val to_yaml' :
t ->
(string
* [> `O of (string * [> `Float of float | `String of string ]) list
| `String of string ])
list
val of_yaml : Yaml.value -> (t, [ `Msg of string ]) Stdlib.result