fix: type of pipeable stream to allow objects with keys (#854)

* fix: type of pipeable stream to allow objects with keys

* fix: test

src/ReactDOMServerNode.re

@@ -24,14 +24,15 @@ type options = {
   progressiveChunkSize: option(int),
 };
 
-type pipeableStream = {
+type pipeableStream('a) = {
   /* Using empty object instead of Node.stream since Melange don't provide a binding to node's Stream (https://nodejs.org/api/stream.html) */
-  pipe: Js.t({.}) => unit,
+  pipe: Js.t({..} as 'a) => unit,
   abort: unit => unit,
 };
 
 [@mel.module "react-dom/server"]
-external renderToPipeableStream: (React.element, options) => pipeableStream =
+external renderToPipeableStream:
+  (React.element, options) => pipeableStream('a) =
   "renderToPipeableStream";
 
 let renderToPipeableStream =

src/ReactDOMServerNode.rei

@@ -24,9 +24,9 @@ type options = {
   progressiveChunkSize: option(int),
 };
 
-type pipeableStream = {
+type pipeableStream('a) = {
   /* Using empty object instead of Node.stream since Melange don't provide a binding to node's Stream (https://nodejs.org/api/stream.html) */
-  pipe: Js.t({.}) => unit,
+  pipe: Js.t({..} as 'a) => unit,
   abort: unit => unit,
 };
 
@@ -45,4 +45,4 @@ let renderToPipeableStream:
     ~progressiveChunkSize: int=?,
     React.element
   ) =>
-  pipeableStream;
+  pipeableStream('a);

test/ReactDOM__test.re

@@ -53,7 +53,7 @@ describe("ReactDOM", () => {
           hasErrored := true;
         },
       );
-      let {pipe, abort: _}: ReactDOMServerNode.pipeableStream =
+      let {pipe, abort: _}: ReactDOMServerNode.pipeableStream(_) =
         ReactDOMServerNode.renderToPipeableStream(
           <div> "Hello world!"->React.string </div>,
         );