let pp_pkg_list fmt (l,univ) =
try
Format.fprintf fmt "%s" (
String.concat ", "
(List.map (fun p ->
let pkg = Hashtbl.find univ (p.Cudf.package,p.Cudf.version) in
Printf.sprintf "%s=%s/%s"
pkg.Packages.name
pkg.Packages.version
pkg.Packages.architecture
) l)
)
with Not_found -> print_error "apt-cudf internal error"