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

Fix incorrect concatenation for multivalues in quoted context 

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-06-06 21:38:01 +07:00
parent 6ebff9d388
commit 7d8a7e94aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/string_with_vars.ml
View File

@ -160,7 +160,7 @@ let partial_expand t ~mode ~dir ~f =
| Some ([] | _::_::_ as e) when not t.quoted -> | Some ([] | _::_::_ as e) when not t.quoted ->
invalid_multivalue syntax ~var t e invalid_multivalue syntax ~var t e
| Some t -> | Some t ->
loop (List.rev_append (Value.L.to_strings ~dir t) acc_text) acc items loop (Value.L.concat ~dir t :: acc_text) acc items
| None -> loop [] (it :: commit_text acc_text acc) items | None -> loop [] (it :: commit_text acc_text acc) items
end end
in in