let message =
  switch (person1) {
    | School.Teacher => "Hello teacher!"
    | School.Director => "Hello director!"
  };

let message =
  School.(
    switch (person1) {
    | Teacher => "Hello teacher!"
    | Director => "Hello director!"
    }
  );

let readCacheServiceConfigAndDecode = (configJson) =>
  switch (configJson |> Js.Json.decodeObject) {
  | None => raise(Json.Decode.DecodeError("Invalid Cache Config"))
  | Some(data) =>
    data |> Js.Dict.map((. json) => CachingServiceConfig.decode(json))
  };