preserve existing extra-sources

ocaml · May 23, 2024 · 214520f · 214520f
1 parent 5c18ef7
commit 214520f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/client/opamAdminCommand.ml b/src/client/opamAdminCommand.ml
@@ -520,7 +520,8 @@ let migrate_extrafiles_command cli =
                in
                OpamFilename.cleandir files_dir;
                OpamFilename.rmdir_cleanup files_dir;
-               let opam1 = OpamFile.OPAM.with_extra_sources extra_sources opam in
+               let my_extra_sources = OpamFile.OPAM.extra_sources opam in
+               let opam1 = OpamFile.OPAM.with_extra_sources (my_extra_sources @ extra_sources) opam in
                let opam1 = OpamFile.OPAM.with_extra_files_opt None opam1 in
                OpamFile.OPAM.write_with_preserved_format opam_file opam1;
                has_error)