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)