Just syntactic sugar, no behaviour changes. --- builder/builder.ml | 2 +- sparsify/sparsify.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/builder/builder.ml b/builder/builder.ml index 1800f2d..77e37d2 100644 --- a/builder/builder.ml +++ b/builder/builder.ml @@ -815,7 +815,7 @@ exec >>%s 2>&1 msg (f_"Uploading: %s to %s") file dest; let dest = if g#is_dir ~followsymlinks:true dest then - dest ^ "/" ^ Filename.basename file + dest // Filename.basename file else dest in (* Do the file upload. *) diff --git a/sparsify/sparsify.ml b/sparsify/sparsify.ml index 212a23f..a51a200 100644 --- a/sparsify/sparsify.ml +++ b/sparsify/sparsify.ml @@ -370,7 +370,7 @@ let () = fun vg -> if not (List.mem vg ignores) then ( let lvname = string_random8 () in - let lvdev = "/dev/" ^ vg ^ "/" ^ lvname in + let lvdev = "/dev/" ^ vg // lvname in let created = try g#lvcreate_free lvname vg 100; true