blob: f1f0cfd9b1872eccf3b533c2ef89133f1c50c46d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
(** Create the handler for the service *)
let handler =
Dream_handler.handle
(module Services_impl.Nb_car)
(fun (() : Services_impl.Nb_car.placeholders) body ->
Lwt.return_ok
Services_impl.Nb_car.
{
value = body.value;
nbcar = Int64.of_int (String.length body.value);
})
(* The handler and the route are not created at the same time because we may
want create a specific handler, for example one checking CRSF in the query
and can’t infer this from the service signature only *)
(** And create the route. *)
let route = Dream_handler.register (module Services_impl.Nb_car) handler
(** Generate a default static page *)
let hello : Dream.handler =
fun _ ->
Dream.html
{|<html>
<body>
<h1>Hello!</h1>
<div>
<noscript>Sorry, you need to enable JavaScript to see this page.</noscript>
<script id="lib" type="text/javascript" defer="defer" src="js/content.js"></script>
<script>
var script = document.getElementById('lib');
lib.addEventListener('load', function() {
client.start()
})
</script>
</div>
<div id="content" />
</body>
</html>|}
let js_assets _root path _request =
(* This module is automatically generated — see the dune file to see the rule *)
match JsAssets.read path with
| None -> Dream.empty `Not_Found
| Some asset -> Dream.respond asset
let () =
Dream.run @@ Dream.logger
@@ Dream.router
[
Dream.get "/js/**" (Dream.static ~loader:js_assets "");
Dream.get "/" hello;
route;
]
(* Now test the application by connecting to
http://localhost:8080/
*)
|
