OS.Envtype t = string Astring.String.mapval current : unit -> (t, [> Rresult.R.msg ]) resultval set_var : string -> string option -> (unit, [> Rresult.R.msg ]) resultval req_var : string -> (string, [> Rresult.R.msg ]) resulttype !'a parser = string -> ('a, Rresult.R.msg) resultval parser : string -> (string -> 'a option) -> 'a parserval bool : bool parserval string : string parserval parse : string -> 'a parser -> absent:'a -> ('a, [> Rresult.R.msg ]) resultval value : ?log:Logs.level -> string -> 'a parser -> absent:'a -> 'a