6 lines
189 B
OCaml
6 lines
189 B
OCaml
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)
|