From 7d8a7e94aa6a09bf21a662abec15784340bf0a64 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Wed, 6 Jun 2018 21:38:01 +0700 Subject: [PATCH] Fix incorrect concatenation for multivalues in quoted context Signed-off-by: Rudi Grinberg --- src/string_with_vars.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/string_with_vars.ml b/src/string_with_vars.ml index e63d4876..17dfa664 100644 --- a/src/string_with_vars.ml +++ b/src/string_with_vars.ml @@ -160,7 +160,7 @@ let partial_expand t ~mode ~dir ~f = | Some ([] | _::_::_ as e) when not t.quoted -> invalid_multivalue syntax ~var t e | 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 end in