Core typedefs for date and regExp

Author: cknitt

compiler/ml/ast_untagged_variants.ml

@@ -166,8 +166,8 @@ let type_to_instanceof_backed_obj (t : Types.type_expr) =
   | Tconstr (path, _, _) when Path.same path Predef.path_array -> Some Array
   | Tconstr (path, _, _) -> (
     match Path.name path with
-    | "Js_date.t" -> Some Date
-    | "Js_re.t" -> Some RegExp
+    | "CoreTypes.date" -> Some Date
+    | "CoreTypes.regExp" -> Some RegExp
     | "Js_file.t" -> Some File
     | "Js_blob.t" -> Some Blob
     | _ -> None)

lib/es6/CoreTypes.js

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

lib/js/CoreTypes.js

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

packages/artifacts.txt

@@ -76,6 +76,7 @@ lib/es6/BigInt64Array.js
 lib/es6/BigUint64Array.js
 lib/es6/Char.js
 lib/es6/Console.js
+lib/es6/CoreTypes.js
 lib/es6/DataView.js
 lib/es6/Date.js
 lib/es6/Dict.js
@@ -244,6 +245,7 @@ lib/js/BigInt64Array.js
 lib/js/BigUint64Array.js
 lib/js/Char.js
 lib/js/Console.js
+lib/js/CoreTypes.js
 lib/js/DataView.js
 lib/js/Date.js
 lib/js/Dict.js
@@ -649,6 +651,10 @@ lib/ocaml/Console.cmt
 lib/ocaml/Console.cmti
 lib/ocaml/Console.res
 lib/ocaml/Console.resi
+lib/ocaml/CoreTypes.cmi
+lib/ocaml/CoreTypes.cmj
+lib/ocaml/CoreTypes.cmt
+lib/ocaml/CoreTypes.res
 lib/ocaml/DataView.cmi
 lib/ocaml/DataView.cmj
 lib/ocaml/DataView.cmt

runtime/CoreTypes.res

@@ -0,0 +1,3 @@
+type date
+
+type regExp

runtime/Date.res

@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = CoreTypes.date
 
 type msSinceEpoch = float
 

runtime/Date.resi

@@ -5,7 +5,7 @@
 /**
 A type representing a JavaScript date.
 */
-type t = Js.Date.t
+type t = CoreTypes.date
 
 /**
 Time, in milliseconds, since / until the UNIX epoch (January 1, 1970 00:00:00 UTC).

runtime/Js_date.res

@@ -29,7 +29,7 @@ on MDN.) JavaScript stores dates as the number of milliseconds since the UNIX
 *epoch*, midnight 1 January 1970, UTC.
 */
 
-type t
+type t = CoreTypes.date
 
 @send
 /**

runtime/Js_re.res

@@ -31,7 +31,7 @@ and subsequent uses will continue the search from the previous [`lastIndex`]().
 */
 
 /** The RegExp object. */
-type t
+type t = CoreTypes.regExp
 
 /** The result of a executing a RegExp on a string. */
 type result

runtime/Pervasives.res

@@ -1,15 +1,12 @@
-/**
-   Since [others] depend on this file, its public mli files **should not
-   export types** introduced here, otherwise it would cause 
-   conflicts here.
+/* Core type aliases */
 
-   If the type exported here is also exported in modules from others,
-   you will get a type not equivalent.
-*/
-@deprecated("Do not use. This will be removed in v13")
-external /* Internal */
+type date = CoreTypes.date
+type regExp = CoreTypes.regExp
 
-__unsafe_cast: 'a => 'b = "%identity"
+/* Internal */
+
+@deprecated("Do not use. This will be removed in v13")
+external __unsafe_cast: 'a => 'b = "%identity"
 
 /* Exceptions */
 

runtime/RegExp.res

@@ -1,4 +1,4 @@
-type t = Js.Re.t
+type t = CoreTypes.regExp
 
 module Result = {
   type t = array<option<string>>

tests/gentype_tests/typescript-react-example/package-lock.json

@@ -122,7 +122,7 @@ type instantiateTypeParameter = ocaml_array<someRecord>
 @genType @genType.as("Vector")
 type vector<'a> = ('a, 'a)
 
-@genType type date = Js.Date.t
+@genType type date = Date.t
 
 @genType let currentTime = Js.Date.make()
 

tests/gentype_tests/typescript-react-example/src/nested/Types.res

@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = Date.t
 
 @val @module("date-fns")
 external dateFormat: (t, string) => string = "format"

tests/syntax_tests/data/idempotency/pupilfirst/shared/DateTime.res

@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = Date.t
 
 type format =
   | OnlyDate