type 'a t =
('a, [ `Active of active | `Msg of string | `Blocked ]) Stdlib.result
val equal :
('a -> 'a -> Ppx_deriving_runtime.bool) ->
'a t ->
'a t ->
Ppx_deriving_runtime.bool
val pp :
'a Fmt.t ->
('a, [< `Active of active | `Msg of string | `Blocked ]) Stdlib.result Fmt.t