bs5/universal/native/shared/Promise_renderer.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

[@warning "-33"];

open Melange_json.Primitives;

module Reader = {
  [@react.component]
  let make = (~promise: Js.Promise.t(string)) => {
    let value = React.Experimental.use(promise);
    let%browser_only onMouseOver = _ev => {
      Js.log("Over the promise!");
    };
    <div className="cursor-pointer" onMouseOver> <Text> value </Text> </div>;
  };
};

[@react.client.component]
let make = (~promise: Js.Promise.t(string)) => {
  <div className={Cx.make([Theme.text(Theme.Color.Gray4)])}>
    <React.Suspense
      fallback={
        <div className={Cx.make([Theme.text(Theme.Color.Gray14)])}>
          {React.string("Loading...")}
        </div>
      }>
      <Reader promise />
    </React.Suspense>
  </div>;
};