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

Use default web configs where no web.toml

Browse Source
This commit is contained in:
Stavros Polymenis 2017-01-19 21:53:51 +00:00
parent 988fe700d2
commit 42ed2f94bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/web.ml
View File

@ -68,7 +68,7 @@ let optional_html_response = function Some h -> html_response h | None -> html_r
let () =
Random.self_init();
let wcfg = Configuration.of_filename "web.toml" in
let wcfg = try Configuration.of_filename "web.toml" with Sys_error _ -> Configuration.default in
let option_load tpl o = match o with Some f -> Some (tpl f) | None -> None in
let header_tpl = option_load Template.header Configuration.(wcfg.template.header) in
let listing_tpl = option_load Template.listing Configuration.(wcfg.template.listing) in