Permalink
Browse files

[opam update] simplification : packages available are not changed bet…

…ween the first [update_available_current] and the second
  • Loading branch information...
1 parent 80a4d33 commit e6cf29f871426b27f7478a849c2608227e66d278 @tuong tuong committed Jul 23, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 src/client.ml
View
@@ -302,7 +302,7 @@ let update_repo_index t =
let update () =
log "update";
- let t = update_available_current (load_state ()) in
+ let t = load_state () in
let compilers = Path.G.compiler_list t.global in
(* first update all the repo *)
@@ -378,7 +378,6 @@ let update () =
) () t.global;
(* Check all the dependencies exist *)
- let available = get_available_current t in
let t = update_available_current (load_state ()) in
let has_error = ref false in
NV.Set.iter (fun nv ->
@@ -403,7 +402,7 @@ let update () =
has_error := true
| Some _ -> ()
)) (depends @ depopts)
- ) available;
+ ) (get_available_current t);
if !has_error then
Globals.exit 66

0 comments on commit e6cf29f

Please sign in to comment.