swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix

Browse source
This commit is contained in:
Swrup 2022-02-27 19:58:32 +01:00
parent f65478238b
commit cf9810ddbf
5 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/app.ml
View file

@ -42,14 +42,6 @@ let open_registration =
let () = Dream.log "open_registration: %b" open_registration
let hostname =
match Scfg.Query.get_dir "hostname" config with
| None -> failwith "no `hostname` in configuration file"
| Some hostname ->
Result.fold ~error:failwith ~ok:Fun.id (Scfg.Query.get_param 0 hostname)
let () = Dream.log "hostname: %s" hostname
let port =
match Scfg.Query.get_dir "port" config with
| None -> 8080
@ -66,6 +58,14 @@ let port =
let () = Dream.log "port: %d" port
let hostname =
match Scfg.Query.get_dir "hostname" config with
| None -> Format.sprintf "localhost:%d" port
| Some hostname ->
Result.fold ~error:failwith ~ok:Fun.id (Scfg.Query.get_param 0 hostname)
let () = Dream.log "hostname: %s" hostname
let log =
match Scfg.Query.get_dir "log" config with
| None -> true