software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactor webserver port to a variable

Browse Source
This commit is contained in:
Stavros Polymenis 2017-11-02 22:37:14 +00:00
parent 82a493bd82
commit 712325aa7b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/logarion_webserver.ml
View File

@ -133,11 +133,12 @@ let serve config_filename =
>>= html_response
in
let port = match Uri.port web_config.Configuration.url with Some p -> p | None -> 3666 in
print_endline @@ "Server address: " ^ Uri.to_string web_config.Configuration.url;
print_endline @@ "Press Ctrl+C to stop.";
let app =
App.empty
|> App.port (match Uri.port web_config.Configuration.url with Some p -> p | None -> 3666)
|> App.port port
|> middleware @@
Middleware.static
~local_path:(Fpath.to_string web_config.Configuration.static)