diff options
| -rw-r--r-- | README.org | 1 | ||||
| -rw-r--r-- | lib/config.ml | 1 | ||||
| -rw-r--r-- | lib/main.ml | 4 |
3 files changed, 5 insertions, 1 deletions
@@ -31,6 +31,7 @@ Listed in no particular order. - [ ] Repo file browser breadcrumbs - [ ] Diff view for commits - [ ] Index link +- [ ] Config default app port ** Bugs diff --git a/lib/config.ml b/lib/config.ml index 79c0109..e8628ae 100644 --- a/lib/config.ml +++ b/lib/config.ml @@ -69,4 +69,5 @@ let read_file ?(file = config_file) () = prerr_endline "[config.ml] Falling back to default config."; Ok default +let default_port = 8081 let config = match read_file () with Ok cfg -> cfg | Error _ -> default diff --git a/lib/main.ml b/lib/main.ml index 5b19c42..a786c8c 100644 --- a/lib/main.ml +++ b/lib/main.ml @@ -1,3 +1,5 @@ (* -*- mode: tuareg; -*- *) -let run () = Dream.run @@ Dream.logger @@ Dream.router Handlers.all_handlers +let run () = + let port = Config.default_port in + Dream.run ~port @@ Dream.logger @@ Dream.router Handlers.all_handlers |