forked from robur/blog.robur.coop
16 lines
446 B
OCaml
16 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
|