From e142e6001e710205e500ba8cc1e92a6be8185de7 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 20 Jul 2025 18:43:31 +0200 Subject: Add application bind port configuration. --- README.org | 1 + lib/config.ml | 1 + lib/main.ml | 4 +++- 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/README.org b/README.org index 79929fb..dde935f 100644 --- a/README.org +++ b/README.org @@ -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 -- cgit v1.2.3