Clean-up left-over repositories when creating new ones with the same …

…names.
OCamlPro · Jan 25, 2013 · 6129a93 · 6129a93
1 parent 34a7a97
commit 6129a93
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/opamRepository.ml b/src/core/opamRepository.ml
@@ -95,7 +95,9 @@ let init r =
   let module B = (val find_backend r: BACKEND) in
   let open OpamPath.Repository in
   let repo = repo r in
-  OpamFilename.mkdir (root repo);
+  let repodir = root repo in
+  OpamFilename.rmdir repodir;
+  OpamFilename.mkdir repodir;
   OpamFile.Repo_config.write (config repo) r;
   OpamFilename.mkdir (packages_dir repo);
   OpamFilename.mkdir (archives_dir repo);