feat: add performance api (#170)

* feat: add performance api

* add test

* change type

Author: clentfort

lib/js/src/Webapi.js

@@ -10,11 +10,14 @@ var Dom = 0;
 
 var $$File = 0;
 
+var $$Performance = 0;
+
 var Url = 0;
 
 exports.Base64 = Base64;
 exports.Canvas = Canvas;
 exports.Dom = Dom;
 exports.$$File = $$File;
+exports.$$Performance = $$Performance;
 exports.Url = Url;
 /* Webapi__Dom Not a pure module */

lib/js/src/Webapi/Webapi__Performance.js

@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

lib/js/tests/Webapi/Webapi__Performace__test.js

@@ -0,0 +1,6 @@
+'use strict';
+
+
+window.performance.now();
+
+/*  Not a pure module */

src/Webapi.re

@@ -8,4 +8,5 @@ module Base64 = Webapi__Base64;
 module Canvas = Webapi__Canvas;
 module Dom = Webapi__Dom;
 module File = Webapi__File;
+module Performance = Webapi__Performance;
 module Url = Webapi__Url;

src/Webapi/Webapi__Dom/Webapi__Dom__Window.re

@@ -5,7 +5,6 @@ type idleDeadline; /* Cooperative Scheduling of Background Tasks */
 type locationbar; /* "bar object" */
 type menubar; /* "bar object" */
 type navigator;
-type performance; /* Web Performance API */
 type personalbar; /* "bar object" */
 type screen;
 type scrollbars; /* "bar object" */
@@ -47,7 +46,7 @@ module Impl = (T: {type t;}) => {
   [@bs.get] external pageXOffset : t_window => float = ""; /* alias for scrollX */
   [@bs.get] external pageYOffset : t_window => float = ""; /* alias for scrollY */
   [@bs.get] external parent : t_window => Dom.window = "";
-  [@bs.get] external performance : t_window => performance = "";
+  [@bs.get] external performance : t_window => Webapi__Performance.t = "";
   [@bs.get] external personalbar : t_window => personalbar = "";
   [@bs.get] external screen : t_window => screen = "";
   [@bs.get] external screenX : t_window => int = "";

src/Webapi/Webapi__Performance.re

@@ -0,0 +1,3 @@
+type t;
+
+[@bs.send] external now : t => float = "";

tests/Webapi/Webapi__Performace__test.re

@@ -0,0 +1,4 @@
+let _ =
+  Webapi.Dom.window
+  |> Webapi.Dom.Window.performance
+  |> Webapi.Performance.now;