R (topkg.Topkg_result.R)

val reword_error : ('b -> 'c) -> ('a, 'b) r -> ('a, 'c) r

type msg = [

| `Msg of string

]

val msgf : ('a, Stdlib.Format.formatter, unit, [> msg ]) Stdlib.format4 -> 'a

val error_msg : string -> ('b, [> msg ]) r

val error_msgf : ('a, Stdlib.Format.formatter, unit, ('b, [> msg ]) r) Stdlib.format4 -> 'a

val reword_error_msg : ?replace:bool -> (string -> msg) -> ('a, msg) r -> ('a, [> msg ]) r