let vpkg_option ?default ?(metavar = "VPKG") () =
let parse_vpkg s =
let _loc = Debian.Format822.dummy_loc in
Debian.Packages.parse_vpkg (_loc,s)
in
OptParse.Opt.value_option metavar default
parse_vpkg (fun _ s -> Printf.sprintf "invalid vpackage '%s'" s)