sig
val reword_error : ('b -> 'c) -> ('a, 'b) Topkg.r -> ('a, 'c) Topkg.r
type msg = [ `Msg of string ]
val error_msg : string -> ('b, [> Topkg.R.msg ]) Topkg.r
val error_msgf :
('a, Stdlib.Format.formatter, unit, ('b, [> Topkg.R.msg ]) Topkg.r)
Stdlib.format4 -> 'a
val reword_error_msg :
?replace:bool ->
(string -> Topkg.R.msg) ->
('a, Topkg.R.msg) Topkg.r -> ('a, [> Topkg.R.msg ]) Topkg.r
end