Permalink
Browse files

[rsync] we follow the same behavior as opam in case "descr" is absent

  • Loading branch information...
1 parent eb34a58 commit 68b83cc9095f77a9462ac6a2ca0dd16ebbf4c761 @tuong tuong committed Jul 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/repo/rsync/update.ml
@@ -29,7 +29,7 @@ let rsync ?fn dir =
let () =
let fn str = NV.of_filename (Filename.of_string str) in
let opam = rsync ~fn "opam/" in
- let descr = rsync "descr/" in
+ let descr = try rsync "descr/" with e -> let _ = Globals.warning "%s" (Printexc.to_string e) in NV.Set.empty in
let archives =
let files = Run.files "archives" in
List.fold_left (fun set f -> NV.Set.union (rsync ~fn f) set) NV.Set.empty files in

0 comments on commit 68b83cc

Please sign in to comment.