let pp_versions_table fmt (from_cudf, pkglist) = List.iter (fun pkg -> let (p,v) = from_cudf (pkg.Cudf.package,pkg.Cudf.version) in Format.fprintf fmt "%s=%d=%s@." p pkg.Cudf.version v ) pkglist