update inbox list

This commit is contained in:
manhlab
2021-04-07 19:25:18 -04:00
parent fda7245f7c
commit 436de2efd6
8576 changed files with 1013325 additions and 3 deletions

View File

@@ -0,0 +1,22 @@
<span class="hljs-comment">/* This is a simple function */</span>
<span class="hljs-keyword">let</span> greet =<span class="hljs-function"> (<span class="hljs-params">name</span>) =&gt;</span> <span class="hljs-string">"Hello World"</span>;
<span class="hljs-keyword">let</span> body = <span class="hljs-constructor">`Plain(<span class="hljs-string">"uploaded "</span> <span class="hljs-operator">++</span> <span class="hljs-params">cacheServiceConfig</span>.<span class="hljs-params">desc</span> <span class="hljs-operator">++</span> <span class="hljs-string">"configuration data into cache on S3"</span>)</span>;
<span class="hljs-keyword">let</span> getCacheConfigByEnv =
<span class="hljs-function"> (
<span class="hljs-params">environment<span class="hljs-typing">: environment,</span>
</span> <span class="hljs-params">cacheServiceConfig<span class="hljs-typing">: <span class="hljs-module"><span class="hljs-identifier">Js</span>.</span><span class="hljs-module"><span class="hljs-identifier">Dict</span>.</span>t(cachingServiceConfig)
</span> )</span> =&gt;</span>
switch (cacheServiceConfig) {
<span class="hljs-pattern-match">| <span class="hljs-constructor">Some(<span class="hljs-params">config</span>)</span> =&gt;</span> config
<span class="hljs-pattern-match">| <span class="hljs-constructor">None</span> =&gt;</span>
raise(<span class="hljs-constructor">InvalidEnvironment(<span class="hljs-string">"Caching Service Coinfiguration is missing"</span>)</span>)
};
<span class="hljs-keyword">let</span> readCacheServiceConfigAndDecode =<span class="hljs-function"> (<span class="hljs-params">configJson</span>) =&gt;</span>
switch (configJson<span class="hljs-operator"> |&gt; </span><span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Js</span>.</span><span class="hljs-module"><span class="hljs-identifier">Json</span>.</span></span>decodeObject) {
<span class="hljs-pattern-match">| <span class="hljs-constructor">None</span> =&gt;</span> raise(Json.Decode.<span class="hljs-constructor">DecodeError(<span class="hljs-string">"Invalid Cache Config"</span>)</span>)
<span class="hljs-pattern-match">| <span class="hljs-constructor">Some(<span class="hljs-params">data</span>)</span> =&gt;</span>
data<span class="hljs-operator"> |&gt; </span><span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Js</span>.</span><span class="hljs-module"><span class="hljs-identifier">Dict</span>.</span></span>map(<span class="hljs-function">(. json) =&gt;</span> <span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">CachingServiceConfig</span>.</span></span>decode(json))
};

View File

@@ -0,0 +1,22 @@
/* This is a simple function */
let greet = (name) => "Hello World";
let body = `Plain("uploaded " ++ cacheServiceConfig.desc ++ "configuration data into cache on S3");
let getCacheConfigByEnv =
(
environment: environment,
cacheServiceConfig: Js.Dict.t(cachingServiceConfig)
) =>
switch (cacheServiceConfig) {
| Some(config) => config
| None =>
raise(InvalidEnvironment("Caching Service Coinfiguration is missing"))
};
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))
};

View File

@@ -0,0 +1,41 @@
<span class="hljs-keyword">let</span> i = <span class="hljs-number">14</span>;
<span class="hljs-keyword">let</span> i = <span class="hljs-number">(-14)</span>;
<span class="hljs-keyword">let</span> i = <span class="hljs-number">1000</span>;
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0b100</span>;
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0x1FF</span>;
<span class="hljs-keyword">let</span> i = <span class="hljs-number">0o777</span>;
<span class="hljs-keyword">let</span> i64 = <span class="hljs-number">128L</span>;
<span class="hljs-keyword">let</span> i64 = <span class="hljs-number">0b10L</span>;
<span class="hljs-keyword">let</span> i32 = <span class="hljs-number">32l</span>;
<span class="hljs-keyword">let</span> i32 = <span class="hljs-number">0x12l</span>;
<span class="hljs-keyword">let</span> nat = <span class="hljs-number">10n</span>;
<span class="hljs-keyword">let</span> nat = <span class="hljs-number">0o644n</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">5.</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">5.1</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e+1</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e1</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1e-1</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1024e12</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">1L</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">23.0</span><span class="hljs-operator"> +. </span><span class="hljs-number">1.0</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">2</span><span class="hljs-operator"> / </span><span class="hljs-number">23</span><span class="hljs-operator"> * </span><span class="hljs-number">1</span>;
<span class="hljs-keyword">let</span> f = <span class="hljs-number">2.0</span><span class="hljs-operator"> /. </span><span class="hljs-number">23.0</span><span class="hljs-operator"> *. </span><span class="hljs-number">1.0</span>;
<span class="hljs-keyword">let</span> exp = <span class="hljs-number">2.0</span><span class="hljs-operator"> ** </span><span class="hljs-number">2.0</span>;
<span class="hljs-keyword">let</span> structual = <span class="hljs-literal">true</span><span class="hljs-operator"> == </span><span class="hljs-literal">false</span>;
<span class="hljs-keyword">let</span> reference = <span class="hljs-literal">true</span><span class="hljs-operator"> === </span><span class="hljs-literal">false</span>;
<span class="hljs-keyword">let</span> b = <span class="hljs-literal">true</span><span class="hljs-operator"> || </span><span class="hljs-literal">false</span>;
<span class="hljs-keyword">let</span> l = <span class="hljs-literal">[]</span>;
<span class="hljs-keyword">let</span> a = <span class="hljs-literal">[||]</span>;
<span class="hljs-keyword">let</span> arr = <span class="hljs-literal">[|<span class="hljs-number">1</span>, <span class="hljs-number">2</span>, <span class="hljs-number">3</span>|]</span>;
<span class="hljs-keyword">let</span> b = <span class="hljs-literal">[<span class="hljs-identifier">item1</span>, <span class="hljs-identifier">item2</span>, <span class="hljs-operator">...</span><span class="hljs-identifier">theRest</span>]</span>;
<span class="hljs-keyword">let</span> <span class="hljs-literal">()</span> = ignore(b);
<span class="hljs-keyword">let</span> str = <span class="hljs-string">"a"</span><span class="hljs-operator"> ++ </span><span class="hljs-string">"b"</span>;
<span class="hljs-keyword">let</span> c = <span class="hljs-character">'a'</span>;
<span class="hljs-keyword">let</span> c = <span class="hljs-character">'\xFF'</span>;
<span class="hljs-keyword">let</span> c = <span class="hljs-character">'\128'</span>;
<span class="hljs-keyword">let</span> c = <span class="hljs-character">'\n'</span>;

View File

@@ -0,0 +1,41 @@
let i = 14;
let i = (-14);
let i = 1000;
let i = 0b100;
let i = 0x1FF;
let i = 0o777;
let i64 = 128L;
let i64 = 0b10L;
let i32 = 32l;
let i32 = 0x12l;
let nat = 10n;
let nat = 0o644n;
let f = 5.;
let f = 5.1;
let f = 1e+1;
let f = 1e1;
let f = 1e-1;
let f = 1024e12;
let f = 1L;
let f = 23.0 +. 1.0;
let f = 2 / 23 * 1;
let f = 2.0 /. 23.0 *. 1.0;
let exp = 2.0 ** 2.0;
let structual = true == false;
let reference = true === false;
let b = true || false;
let l = [];
let a = [||];
let arr = [|1, 2, 3|];
let b = [item1, item2, ...theRest];
let () = ignore(b);
let str = "a" ++ "b";
let c = 'a';
let c = '\xFF';
let c = '\128';
let c = '\n';

View File

@@ -0,0 +1,19 @@
<span class="hljs-keyword">let</span> decode =<span class="hljs-function"> <span class="hljs-params">json</span> =&gt;</span>
<span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Json</span>.</span><span class="hljs-module"><span class="hljs-identifier">Decode</span>.</span>{
query: json <span class="hljs-operator">|&gt;</span> field(<span class="hljs-string">"query"</span>, <span class="hljs-built_in">string</span>),
cacheKey: json <span class="hljs-operator">|&gt;</span> field(<span class="hljs-string">"cacheKey"</span>, <span class="hljs-built_in">string</span>),
desc: json <span class="hljs-operator">|&gt;</span> field(<span class="hljs-string">"desc"</span>, <span class="hljs-built_in">string</span>),
lambda: json <span class="hljs-operator">|&gt;</span> field(<span class="hljs-string">"lambda"</span>, <span class="hljs-built_in">string</span>),
}</span>;
<span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Some</span>.</span><span class="hljs-module"><span class="hljs-identifier">Bucket</span>.</span><span class="hljs-module"><span class="hljs-identifier">Of</span>.</span>(
<span class="hljs-keyword">let</span> value = stuff();
)</span>;
<span class="hljs-keyword">let</span> value = <span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Some</span>.</span><span class="hljs-module"><span class="hljs-identifier">Bucket</span>.</span><span class="hljs-module"><span class="hljs-identifier">Of</span>.</span></span>stuff<span class="hljs-literal">()</span>;
<span class="hljs-module-def"><span class="hljs-keyword">module</span> <span class="hljs-keyword">type</span> <span class="hljs-module">RewiredModule</span> = {
<span class="hljs-keyword">type</span> t = {
name: <span class="hljs-built_in">string</span>
};
}</span>;

View File

@@ -0,0 +1,19 @@
let decode = json =>
Json.Decode.{
query: json |> field("query", string),
cacheKey: json |> field("cacheKey", string),
desc: json |> field("desc", string),
lambda: json |> field("lambda", string),
};
Some.Bucket.Of.(
let value = stuff();
);
let value = Some.Bucket.Of.stuff();
module type RewiredModule = {
type t = {
name: string
};
};

View File

@@ -0,0 +1,20 @@
<span class="hljs-keyword">let</span> message =
switch (person1) {
<span class="hljs-pattern-match">| <span class="hljs-constructor">School</span>.<span class="hljs-constructor">Teacher</span> =&gt;</span> <span class="hljs-string">"Hello teacher!"</span>
<span class="hljs-pattern-match">| <span class="hljs-constructor">School</span>.<span class="hljs-constructor">Director</span> =&gt;</span> <span class="hljs-string">"Hello director!"</span>
};
<span class="hljs-keyword">let</span> message =
<span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">School</span>.</span>(
switch (person1) {
| <span class="hljs-module"><span class="hljs-identifier">Teacher</span> </span>=&gt; <span class="hljs-string">"Hello teacher!"</span>
| <span class="hljs-module"><span class="hljs-identifier">Director</span> </span>=&gt; <span class="hljs-string">"Hello director!"</span>
}
)</span>;
<span class="hljs-keyword">let</span> readCacheServiceConfigAndDecode =<span class="hljs-function"> (<span class="hljs-params">configJson</span>) =&gt;</span>
switch (configJson<span class="hljs-operator"> |&gt; </span><span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Js</span>.</span><span class="hljs-module"><span class="hljs-identifier">Json</span>.</span></span>decodeObject) {
<span class="hljs-pattern-match">| <span class="hljs-constructor">None</span> =&gt;</span> raise(Json.Decode.<span class="hljs-constructor">DecodeError(<span class="hljs-string">"Invalid Cache Config"</span>)</span>)
<span class="hljs-pattern-match">| <span class="hljs-constructor">Some(<span class="hljs-params">data</span>)</span> =&gt;</span>
data<span class="hljs-operator"> |&gt; </span><span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">Js</span>.</span><span class="hljs-module"><span class="hljs-identifier">Dict</span>.</span></span>map(<span class="hljs-function">(. json) =&gt;</span> <span class="hljs-module-access"><span class="hljs-module"><span class="hljs-identifier">CachingServiceConfig</span>.</span></span>decode(json))
};

View File

@@ -0,0 +1,20 @@
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))
};