parent
3193e4902d
commit
f1baaa23a8
|
@ -80,3 +80,6 @@ let extend t ~vars =
|
||||||
| Some _ -> v2
|
| Some _ -> v2
|
||||||
| None -> v1)
|
| None -> v1)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
let add t ~var ~value =
|
||||||
|
make ~base:t.base ~extra:(Map.add t.extra var value)
|
||||||
|
|
|
@ -16,3 +16,5 @@ val to_unix : t -> string array
|
||||||
val get : t -> Var.t -> string option
|
val get : t -> Var.t -> string option
|
||||||
|
|
||||||
val extend : t -> vars:string Map.t -> t
|
val extend : t -> vars:string Map.t -> t
|
||||||
|
|
||||||
|
val add : t -> var:Var.t -> value:string -> t
|
||||||
|
|
Loading…
Reference in New Issue