diff options
| author | Marius Peter <marius.peter@tutanota.com> | 2025-07-20 18:43:31 +0200 |
|---|---|---|
| committer | Marius Peter <marius.peter@tutanota.com> | 2025-07-20 18:43:31 +0200 |
| commit | e142e6001e710205e500ba8cc1e92a6be8185de7 (patch) | |
| tree | 6cd3efa21db252c79da7e59d45163fda0a658d3f | |
| parent | ae808c11a3ad37b3204448789c89e96da3fcdc7b (diff) | |
Add application bind port configuration.
| -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 |