let find mode filenames options action =
      let status =
        { (parse_options options) with
          handler = handler mode;
          action = hide_exn action }
      in
      reveal_exn (List.iter (find_entry status)) filenames