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