let parse_packages_in ?filter ?(default_arch=None) ?(extras=[]) file ic =
  info "Parsing Packages file %s..." file;
  try
    let stanza_parser = parse_package_stanza filter default_arch extras in
    Format822.parse_from_ch (packages_parser stanza_parser []) ic
  with ParseError (field,errmsg) -> fatal "%s \n %s : %s" file field errmsg