Permalink
Browse files

move the part that does not depend on [l]

  • Loading branch information...
1 parent bb89d99 commit c6e03d53819382cbd99486f012333a5b0cb9777c @tuong tuong committed Aug 3, 2012
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/solver.ml
View
@@ -564,18 +564,18 @@ struct
| _ -> failwith "TODO"
) req) in
+ (* Load an universe with all the optional dependencies *)
+ let pkglist = List.map (extended_dependencies table) pkglist in
+ let universe = Cudf.load_universe pkglist in
+ log "full-universe: %s" (string_of_universe universe);
+ let create_graph filter = dep_reduction (Cudf.get_packages ~filter universe) in
+
let action_of_answer l =
let l_s =
String.concat " "
(List.map (string_of_internal_action string_of_cudf_package) l) in
log "SOLUTION: %s" l_s;
- (* Load an universe with all the optional dependencies *)
- let pkglist = List.map (extended_dependencies table) pkglist in
- let universe = Cudf.load_universe pkglist in
- log "full-universe: %s" (string_of_universe universe);
- let create_graph filter = dep_reduction (Cudf.get_packages ~filter universe) in
-
let l_del_p, set_del =
Utils.filter_map (function
| I_to_change (Some pkg, _)

0 comments on commit c6e03d5

Please sign in to comment.