React Storybook ReasonML

ReasonMLStory.re

open StoryBook;

let _module = [%bs.raw "module"];

storiesOf("ReasonML Example", _module)
->addDecorator(storyFn =>
    <div style={ReactDOMRe.Style.make(~textAlign="center", ~marginTop="50px", ())}>
      {storyFn()}
    </div>
  )
->add("a story with ReasonML", () =>
    <div>
      <p>{ReasonReact.string("Hello bs-storybook!")}</p>
      <p>{ReasonReact.string("I've been styled by a storybook decorator.")}</p>
    </div>
  );

Storybook.rei

type section;
type webpackModule;
type chapter = unit => ReasonReact.reactElement;
type decorator = chapter => ReasonReact.reactElement;

[@bs.val] [@bs.module "@storybook/react"]
external storiesOf: (string, webpackModule) => section = "";
[@bs.send] external add: (section, string, chapter) => section = "";
[@bs.send] external addDecorator: (section, decorator) => section = "";