let parse_architecture default_arch (_,arch) =
match default_arch with
|None -> arch
|Some default_arch ->
if (default_arch = arch || arch = "all") then arch else
raise (IgnorePackage (
Printf.sprintf
"architecture: %s is different from %s (default) or 'all'"
arch default_arch
)
)