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