Keycloak.re

/* Keycloak V2 */
type keycloak;
type init;
type initParam;

[@bs.module] external keycloak : string => keycloak = "keycloak-js";
[@bs.obj] external makeInitParam : (~onLoad: string, unit) => initParam = "";
[@bs.send] external init : (keycloak, initParam) => Js.Promise.t(bool) = "";

let myConfig = "./keycloakConfig.json";

let auth = keycloakWithConfig => keycloakWithConfig |. init(makeInitParam(~onLoad="login-required", ())));

KeycloakAppV2.re

type state = {
  keycloak: option(Keycloak.keycloak),
  isAuthed: bool
};

type action = 
  | SetAuthenticated(bool)
  | SetKeycloak(option(Keycloak.keycloak));

let component = ReasonReact.reducerComponent("KeycloakAppV2");

let make = (_children) => {
  ...component,
  initialState: () => {isAuthed: false, keycloak: None},
  reducer: (action, _state) =>
    switch action {
    | SetAuthenticated(isAuthed) => ReasonReact.Update({...state, isAuthed})
    | SetKeycloak(keycloak) => ReasonReact.Update({...state, keycloak})
    },
  didMount: ({send}) =>
    let keycloakWithConfig = Keycloak.myConfig |> Keycloak.keycloak;
    keycloakWithConfig
    |> Keycloak.auth
    |> Js.Promise.then_(
         (authenticated) => {
           authenticated |. SetAuthenticated |> send;
           if(authenticated){Some(keycloakWithConfig) |. SetKeycloak |> send)};
           Js.Promise.resolve()
         }
       )
    |> ignore,
  render: ({state}) =>
    switch state.isAuthed {
    | false => <div> ("You're not authorized." |> ReasonReact.str) </div>
    | true => <MySecuredApp keycloak=state.keycloak />
    }
};