sig type 'a typ val make : string -> 'Dom.Event.typ end