Core typedefs for date and regExp

rescript-lang · Oct 25, 2024 · 5828460 · 5828460
1 parent 1313bb8
commit 5828460
Show file tree

Hide file tree

Showing 14 changed files with 23 additions and 21 deletions.
diff --git a/compiler/ml/ast_untagged_variants.ml b/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)

diff --git a/lib/es6/CoreTypes.js b/lib/es6/CoreTypes.js
@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */
diff --git a/lib/js/CoreTypes.js b/lib/js/CoreTypes.js
@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */
diff --git a/runtime/CoreTypes.res b/runtime/CoreTypes.res
@@ -0,0 +1,3 @@
+type date
+
+type regExp
diff --git a/runtime/Date.res b/runtime/Date.res
@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = CoreTypes.date
 
 type msSinceEpoch = float
 

diff --git a/runtime/Date.resi b/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).

diff --git a/runtime/Js_date.res b/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
 /**

diff --git a/runtime/Js_re.res b/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

diff --git a/runtime/Pervasives.res b/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 */
 

diff --git a/runtime/RegExp.res b/runtime/RegExp.res
@@ -1,4 +1,4 @@
-type t = Js.Re.t
+type t = CoreTypes.regExp
 
 module Result = {
   type t = array<option<string>>

diff --git a/tests/gentype_tests/typescript-react-example/package-lock.json b/tests/gentype_tests/typescript-react-example/package-lock.json
diff --git a/tests/gentype_tests/typescript-react-example/src/nested/Types.res b/tests/gentype_tests/typescript-react-example/src/nested/Types.res
@@ -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()
 

diff --git a/tests/syntax_tests/data/idempotency/pupilfirst/shared/DateTime.res b/tests/syntax_tests/data/idempotency/pupilfirst/shared/DateTime.res
@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = Date.t
 
 @val @module("date-fns")
 external dateFormat: (t, string) => string = "format"

diff --git a/tests/syntax_tests/data/idempotency/pupilfirst/shared/DateTime.resi b/tests/syntax_tests/data/idempotency/pupilfirst/shared/DateTime.resi
@@ -1,4 +1,4 @@
-type t = Js.Date.t
+type t = Date.t
 
 type format =
   | OnlyDate