basic styletron bindings for reasonml

styletron.re

type t;

type getStylesheetsHtmlMeth = {. "getStylesheetsHtml": [@bs.meth] (unit => unit)};

[@bs.val] external styletron_client_option : array(string) => t = "";

[@bs.module "styletron-client"] [@bs.new] external styletronClient : 'a => 'a = "default";

[@bs.module "styletron-server"] [@bs.new]
external styletronServer : unit => getStylesheetsHtmlMeth =
  "default";

module StyletronProvider = {
  [@bs.module "styletron-react"] external styletronProvider : ReasonReact.reactClass =
    "StyletronProvider";
  let make = (~styletron, children) =>
    ReasonReact.wrapJsForReason(
      ~reactClass=styletronProvider,
      ~props={"styletron": styletron},
      children
    );
};