Op.Notify
type t
type kind = [
| `End
| `Fail
| `Info
| `Start
| `Warn
]
val v_op : id:id -> mark:mark -> created:B0_std.Mtime.span -> ?post_exec:(op -> unit) -> ?k:(op -> unit) -> kind -> string -> op
val v : kind:kind -> msg:string -> t
val get : op -> t
val kind : t -> kind
val msg : t -> string