bs5/server/pages/ServerOnlyRSC.re


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

let handler = request => {
  let isRSCheader =
    Dream.header(request, "Accept") == Some("application/react.component");

  let app =
    <DemoLayout background=Theme.Color.Gray2>
      <div className="flex flex-col items-center justify-center h-full gap-4">
        <span className="text-gray-400 text-center">
          {React.string(
             "The client will fetch the server component from the server and run createFromFetch",
           )}
          <br />
          {React.string("asking for the current time (in seconds) since")}
          <br />
          {React.string("00:00:00 GMT, Jan. 1, 1970")}
        </span>
        <h1
          className={Cx.make([
            "font-bold text-4xl",
            Theme.text(Theme.Color.Gray11),
          ])}>
          {React.string(string_of_float(Unix.gettimeofday()))}
        </h1>
      </div>
    </DemoLayout>;

  if (isRSCheader) {
    Dream.stream(response_stream => {
      let%lwt () =
        ReactServerDOM.render_model(
          ~debug=true,
          ~subscribe=data => Dream.write(response_stream, data),
          app,
        );
      Lwt.return();
    });
  } else {
    Dream.html(
      ReactDOM.renderToString(
        <Document script="/static/ServerOnlyRSC.re.js"> React.null </Document>,
      ),
    );
  };
};