20 lines
518 B
Text
20 lines
518 B
Text
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))
|
|
};
|