external get_eventPhase : this:[> `Event] GdomeT.t -> int = "ml_gdome_evnt_get_eventPhase"