Sketch example/r-template

2025-08-25 00:02:41 -04:00 · 2021-03-29 00:01:35 +03:00 · 2021-03-29 00:01:35 +03:00 · 802452e57e
commit 802452e57e
parent ab18ad938e
4 changed files with 42 additions and 0 deletions
--- a/example/r-template/README.md
+++ b/example/r-template/README.md
@ -0,0 +1,12 @@
+# `r-template`
+
+<br>
+
+**Next steps:**
+
+<br>
+
+[Up to the tutorial index](../#readme)
+
+<!-- TODO OWASP link; injection general link. -->
+<!-- TODO Link to template syntax reference. -->
--- a/example/r-template/dune
+++ b/example/r-template/dune
@ -0,0 +1,8 @@
+(executable
+ (name reason_template)
+ (libraries dream))
+
+(rule
+ (targets reason_template.re)
+ (deps reason_template.eml.re)
+ (action (run dream_eml %{deps} --workspace %{workspace_root})))
--- a/example/r-template/dune-project
+++ b/example/r-template/dune-project
@ -0,0 +1 @@
+(lang dune 2.0)
--- a/example/r-template/reason_template.eml.re
+++ b/example/r-template/reason_template.eml.re
@ -0,0 +1,21 @@
+let render = param => {
+  <html>
+    <body>
+      <h1>The URL parameter was <%s param %>!</h1>
+    </body>
+  </html>
+};
+
+let () =
+  Dream.run
+  @@ Dream.logger
+  @@ Dream.router([
+
+    Dream.get("/:word",
+      (request =>
+        Dream.param("word", request)
+        |> render
+        |> Dream.respond)),
+
+  ])
+  @@ Dream.not_found