Improve setTimeout ergonomics

Author: julien-deoux

src/DOMAPI/Window.res

@@ -27,18 +27,25 @@ external btoa: (window, string) => string = "btoa"
 external atob: (window, string) => string = "atob"
 
 /**
+Executes a function after a delay given in milliseconds expires.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/setTimeout)
 */
 @send
-external setTimeout: (window, ~handler: string, ~timeout: int=?) => int = "setTimeout"
+external setTimeout: (window, ~handler: unit => unit, ~timeout: int=?) => int = "setTimeout"
 
 /**
+Evaluates and executes raw JavaScript code after a delay given in milliseconds
+expires. Use of this function is not recommended.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/setTimeout)
 */
 @send
-external setTimeout2: (window, ~handler: unit => unit, ~timeout: int=?) => int = "setTimeout"
+external setTimeout_unsafe: (window, ~code: string, ~timeout: int=?) => int = "setTimeout"
 
 /**
+Cancels the execution of a timeout created with setTimeout.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/clearTimeout)
 */
 @send

src/Global.res

@@ -260,16 +260,23 @@ external btoa: string => string = "btoa"
 external atob: string => string = "atob"
 
 /**
+Executes a function after a delay given in milliseconds expires.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/setTimeout)
 */
-external setTimeout: (~handler: string, ~timeout: int=?) => int = "setTimeout"
+external setTimeout: (~handler: unit => unit, ~timeout: int=?) => int = "setTimeout"
 
 /**
+Evaluates and executes raw JavaScript code after a delay given in milliseconds
+expires. Use of this function is not recommended.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/setTimeout)
 */
-external setTimeout2: (~handler: unit => unit, ~timeout: int=?) => int = "setTimeout"
+external setTimeout_unsafe: (~code: string, ~timeout: int=?) => int = "setTimeout"
 
 /**
+Cancels the execution of a timeout created with setTimeout.
+
 [Read more on MDN](https://developer.mozilla.org/docs/Web/API/Window/clearTimeout)
 */
 external clearTimeout: int => unit = "clearTimeout"