WIP server

bin/dune

@@ -0,0 +1,4 @@
+(executable
+ (public_name oasis_server)
+ (name main)
+ (libraries oasis_server dream core))

bin/main.ml

@@ -0,0 +1,13 @@
+let () =
+  print_endline "Hello, World!";
+  Dream.run @@ Dream.logger
+  @@ Dream.router
+       [
+         Dream.get "/static/**" @@ Dream.static "static";
+         Oasis_server.Utils.html_page_route "/";
+         Dream.get "/echo/:message" (fun request ->
+             Dream.html (Dream.param request "message"));
+         Dream.get "/test" (fun _ ->
+             Unix.sleep 1;
+             Dream.html "<p>You got me!</p>");
+       ]