let factory_open_hidden ~factory ?attributes file =
  let f o =
    match o#open_hidden with None -> () | Some f -> f ?attributes file
  in
  on_factory factory f