let get_source pkg =
  match pkg.Packages.source with
  |("",None-> (pkg.Packages.name, pkg.Packages.version)
  |(n,None-> (n, pkg.Packages.version)
  |(n,Some v) -> (n,v)