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