let parse_architecture archs (_,arch) =
match archs with
|[] -> arch
|l ->
if List.mem arch ("all"::archs) then arch else
raise (IgnorePackage (
Printf.sprintf
"architecture: %s is not included in %s"
arch (ExtString.String.join "," ("all"::archs))
)
)