sig val edit_preferences : unit -> unit end