matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #640 from rgrinberg/fix-duplicate-env 

Handle duplicate environment variables
This commit is contained in:
Rudi Grinberg 2018-03-20 23:55:43 +08:00 committed by GitHub
parent 2e636ef43e cc02277095
commit 237c05466a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/env.ml
View File

@ -44,15 +44,10 @@ let of_unix arr =
Sexp.code_error "Env.of_unix: entry without '=' found in the environ"
["var", Sexp.To_sexp.string s]
| Some (k, v) -> (k, v))
|> Map.of_list
|> function
| Ok x -> x
| Error (var, v1, v2) ->
Sexp.code_error "Env.of_unix: duplicated variable found in the environment"
[ "var" , Sexp.To_sexp.string var
; "value1", Sexp.To_sexp.string v1
; "value2", Sexp.To_sexp.string v2
]
|> Map.of_list_multi
|> Map.map ~f:(function
| [] -> assert false
| x::_ -> x)
let initial =
let i =