forked from robur/blog.robur.coop
15 lines
446 B
OCaml
15 lines
446 B
OCaml
let port = ref 8000
|
|
let usage = Fmt.str "%s [--port <port>]" Sys.argv.(0)
|
|
|
|
let specification =
|
|
[ ("--port", Arg.Set_int port, "The port where we serve the website") ]
|
|
|
|
module Dest = Blog.Make (struct
|
|
let source = Yocaml.Path.rel []
|
|
end)
|
|
|
|
let () =
|
|
Arg.parse specification ignore usage;
|
|
let host = Fmt.str "http://localhost:%d" !port in
|
|
Yocaml_unix.serve ~level:`Info ~target:Dest.target ~port:!port
|
|
@@ fun () -> Dest.process_all ~host
|