@@ -59,27 +59,21 @@ external toSyntheticEvent: synthetic<'a> => Synthetic.t = "%identity"
5959module Clipboard = {
6060 type tag = JsxEvent .Clipboard .tag
6161 type t = synthetic <tag >
62- include MakeEventWithType ({
63- type t = t
64- })
62+ include MakeEventWithType ({type t = t })
6563 @get external clipboardData : t => {.. } = "clipboardData" /* Should return Dom.dataTransfer */
6664}
6765
6866module Composition = {
6967 type tag = JsxEvent .Composition .tag
7068 type t = synthetic <tag >
71- include MakeEventWithType ({
72- type t = t
73- })
69+ include MakeEventWithType ({type t = t })
7470 @get external data : t => string = "data"
7571}
7672
7773module Keyboard = {
7874 type tag = JsxEvent .Keyboard .tag
7975 type t = synthetic <tag >
80- include MakeEventWithType ({
81- type t = t
82- })
76+ include MakeEventWithType ({type t = t })
8377 @get external altKey : t => bool = "altKey"
8478 @get external charCode : t => int = "charCode"
8579 @get external code : t => string = "code"
@@ -99,27 +93,21 @@ module Keyboard = {
9993module Focus = {
10094 type tag = JsxEvent .Focus .tag
10195 type t = synthetic <tag >
102- include MakeEventWithType ({
103- type t = t
104- })
96+ include MakeEventWithType ({type t = t })
10597 @get @return (nullable )
10698 external relatedTarget : t => option <{.. }> = "relatedTarget" /* Should return Dom.eventTarget */
10799}
108100
109101module Form = {
110102 type tag = JsxEvent .Form .tag
111103 type t = synthetic <tag >
112- include MakeEventWithType ({
113- type t = t
114- })
104+ include MakeEventWithType ({type t = t })
115105}
116106
117107module Mouse = {
118108 type tag = JsxEvent .Mouse .tag
119109 type t = synthetic <tag >
120- include MakeEventWithType ({
121- type t = t
122- })
110+ include MakeEventWithType ({type t = t })
123111 @get external altKey : t => bool = "altKey"
124112 @get external button : t => int = "button"
125113 @get external buttons : t => int = "buttons"
@@ -143,9 +131,7 @@ module Mouse = {
143131module Pointer = {
144132 type tag = JsxEvent .Pointer .tag
145133 type t = synthetic <tag >
146- include MakeEventWithType ({
147- type t = t
148- })
134+ include MakeEventWithType ({type t = t })
149135
150136 // UIEvent
151137 @get external detail : t => int = "detail"
@@ -190,17 +176,13 @@ module Pointer = {
190176module Selection = {
191177 type tag = JsxEvent .Selection .tag
192178 type t = synthetic <tag >
193- include MakeEventWithType ({
194- type t = t
195- })
179+ include MakeEventWithType ({type t = t })
196180}
197181
198182module Touch = {
199183 type tag = JsxEvent .Touch .tag
200184 type t = synthetic <tag >
201- include MakeEventWithType ({
202- type t = t
203- })
185+ include MakeEventWithType ({type t = t })
204186 @get external altKey : t => bool = "altKey"
205187 @get external changedTouches : t => {.. } = "changedTouches" /* Should return Dom.touchList */
206188 @get external ctrlKey : t => bool = "ctrlKey"
@@ -215,19 +197,15 @@ module Touch = {
215197module UI = {
216198 type tag = JsxEvent .UI .tag
217199 type t = synthetic <tag >
218- include MakeEventWithType ({
219- type t = t
220- })
200+ include MakeEventWithType ({type t = t })
221201 @get external detail : t => int = "detail"
222202 @get external view : t => Dom .window = "view" /* Should return DOMAbstractView/WindowProxy */
223203}
224204
225205module Wheel = {
226206 type tag = JsxEvent .Wheel .tag
227207 type t = synthetic <tag >
228- include MakeEventWithType ({
229- type t = t
230- })
208+ include MakeEventWithType ({type t = t })
231209 @get external deltaMode : t => int = "deltaMode"
232210 @get external deltaX : t => float = "deltaX"
233211 @get external deltaY : t => float = "deltaY"
@@ -237,25 +215,19 @@ module Wheel = {
237215module Media = {
238216 type tag = JsxEvent .Media .tag
239217 type t = synthetic <tag >
240- include MakeEventWithType ({
241- type t = t
242- })
218+ include MakeEventWithType ({type t = t })
243219}
244220
245221module Image = {
246222 type tag = JsxEvent .Image .tag
247223 type t = synthetic <tag >
248- include MakeEventWithType ({
249- type t = t
250- })
224+ include MakeEventWithType ({type t = t })
251225}
252226
253227module Animation = {
254228 type tag = JsxEvent .Animation .tag
255229 type t = synthetic <tag >
256- include MakeEventWithType ({
257- type t = t
258- })
230+ include MakeEventWithType ({type t = t })
259231 @get external animationName : t => string = "animationName"
260232 @get external pseudoElement : t => string = "pseudoElement"
261233 @get external elapsedTime : t => float = "elapsedTime"
@@ -264,9 +236,7 @@ module Animation = {
264236module Transition = {
265237 type tag = JsxEvent .Transition .tag
266238 type t = synthetic <tag >
267- include MakeEventWithType ({
268- type t = t
269- })
239+ include MakeEventWithType ({type t = t })
270240 @get external propertyName : t => string = "propertyName"
271241 @get external pseudoElement : t => string = "pseudoElement"
272242 @get external elapsedTime : t => float = "elapsedTime"
0 commit comments