Skip to content
Browse files

[init] fix init for local repository

  • Loading branch information...
1 parent f5f3dac commit 507d159fd7361c49a7dcd933c5bbcdbc6fbc5595 @samoht samoht committed Oct 2, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/repositories.ml
View
2 src/repositories.ml
@@ -208,6 +208,8 @@ let make_archive ?(gener_digest=false) ?local_path nv =
(* Eventually add the <package>/files/* to the extracted dir *)
let files =
+ if not (Dirname.exists extract_dir) then
+ Dirname.mkdir extract_dir;
Dirname.in_dir extract_dir (fun () -> copy_files local_repo nv) in
(* And finally create the final archive *)

0 comments on commit 507d159

Please sign in to comment.
Something went wrong with that request. Please try again.