Module Current_term.Output
type active = [
| `Ready
| `Running
| `Waiting_for_confirmation
]
val equal_active : active -> active -> Ppx_deriving_runtime.bool
type 'a t = ('a, [ `Active of active | `Msg of string ]) 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 ]) Stdlib.result Fmt.t