diff --git a/.gitignore b/.gitignore index 10c5583fa..ced532fda 100644 --- a/.gitignore +++ b/.gitignore @@ -4,3 +4,4 @@ dune-project cache/* Version.ml /_opam/ +**/.DS_Store \ No newline at end of file diff --git a/gitlab-pages/website/pages/en/index.js b/gitlab-pages/website/pages/en/index.js index 0ad5ffa1a..c962109df 100644 --- a/gitlab-pages/website/pages/en/index.js +++ b/gitlab-pages/website/pages/en/index.js @@ -5,9 +5,9 @@ * LICENSE file in the root directory of this source tree. */ -const React = require('react'); +const React = require("react"); -const CompLibrary = require('../../core/CompLibrary.js'); +const CompLibrary = require("../../core/CompLibrary.js"); const MarkdownBlock = CompLibrary.MarkdownBlock; /* Used to read markdown */ const Container = CompLibrary.Container; @@ -15,46 +15,117 @@ const GridBlock = CompLibrary.GridBlock; class HomeSplash extends React.Component { render() { - const {siteConfig, language = ''} = this.props; - const {baseUrl, docsUrl} = siteConfig; - const docsPart = `${docsUrl ? `${docsUrl}/` : ''}`; - const langPart = `${language ? `${language}/` : ''}`; + const { siteConfig, language = "" } = this.props; + const { baseUrl, docsUrl } = siteConfig; + const docsPart = `${docsUrl ? `${docsUrl}/` : ""}`; + const langPart = `${language ? `${language}/` : ""}`; const docUrl = doc => `${baseUrl}${docsPart}${langPart}${doc}`; const SplashContainer = props => (
// variant defining pseudo multi-entrypoint actions
type action is
| Increment of int
| Decrement of int
function add (const a : int ; const b : int) : int is
block {'{ skip }'} with a + b
function subtract (const a : int ; const b : int) : int is
block {'{ skip }'} with a - b
// real entrypoint that re-routes the flow based on the action provided
function main (const p : action ; const s : int) : (list(operation) * int) is
block {'{ skip }'} with ((nil : list(operation)),
case p of
| Increment(n) -> add(s, n)
| Decrement(n) -> subtract(s, n)
end)
-
-
-
- type storage = int
(* variant defining pseudo multi-entrypoint actions *)
type action =
| Increment of int
| Decrement of int
let add (a: int) (b: int) : int = a + b
let subtract (a: int) (b: int) : int = a - b
(* real entrypoint that re-routes the flow based on the action provided *)
let%entry main (p : action) storage =
let storage =
match p with
| Increment n -> add storage n
| Decrement n -> subtract storage n
in (([] : operation list), storage)
-
-
+
+
+ // variant defining pseudo multi-entrypoint actions
+
+ type action is
+
| Increment of int
+
| Decrement of int
+
+
+ function add (const a : int ; const b : int) : int is
+
block {"{ skip }"} with a + b
+
+ function subtract (const a : int ; const b : int) :
+ int is
+
block {"{ skip }"} with a - b
+
+ // real entrypoint that re-routes the flow based on
+ the action provided
+
+ function main (const p : action ; const s : int) :
+ (list(operation) * int) is
+
block {"{ skip }"} with ((nil :
+ list(operation)),
+
case p of
+
| Increment(n) -> add(s, n)
+
| Decrement(n) -> subtract(s, n)
+
end)
+
+
+
+
+
+
+ type storage = int
+
+ (* variant defining pseudo multi-entrypoint actions *){" "}
+
+
+ type action =
| Increment of int
+
| Decrement of int
+
+
+ let add (a: int) (b: int) : int = a + b
+
+ let subtract (a: int) (b: int) : int = a - b
+
+ (* real entrypoint that re-routes the flow based on the
+ action provided *)
+
+
+ let%entry main (p : action) storage =
let storage
+ =
match p with
+
| Increment n -> add storage n
| Decrement
+ n -> subtract storage n
in (([] : operation list),
+ storage)
+
+
+
+ {user.caption}
+ + +{user.caption}
)); - const pageUrl = page => baseUrl + (language ? `${language}/` : '') + page; + const pageUrl = page => baseUrl + (language ? `${language}/` : "") + page; return (