WIP server

2023-08-13 22:44:10 -06:00
commit ed29333a87
17 changed files with 214 additions and 0 deletions
@@ -0,0 +1,5 @@
+let html_page_route path =
+  let ic = open_in ("html" ^ path ^ "index.html") in
+  let lines = In_channel.input_all ic in
+  In_channel.close ic;
+  Dream.get path (fun _ -> Dream.html lines)