willianvdv / apollo-inbox Goto Github PK

open BsReactstrap;

let component = ReasonReact.statelessComponent("Substate");
let str = ReasonReact.string;

let badgeColor = substate =>
  switch (substate) {
  | `Resolved => "success"
  | `NotApplicable => "danger"
  | `Informative => "secondary"
  | `Unknown => "light"
  };

let make = (~substate, _children) => {
  ...component,
  render: _self =>
    <span className={"text-" ++ substate->badgeColor}>
      [%raw {|'\u25CF'|}]
    </span>,
};```