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)