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
          )
        )