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