From 0a5c74955363a84033b6ea90aa1b934b1122632f Mon Sep 17 00:00:00 2001 From: Tim Date: Tue, 4 Nov 2025 19:02:37 +0100 Subject: Fix reading ports from env variables --- src/dionysus/web/admin.clj | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/dionysus/web/admin.clj') diff --git a/src/dionysus/web/admin.clj b/src/dionysus/web/admin.clj index 20c7409..28d8301 100644 --- a/src/dionysus/web/admin.clj +++ b/src/dionysus/web/admin.clj @@ -5,10 +5,11 @@ [dotenv :as env] [ring.middleware.params :as rmparams] [ring.middleware.session :as rmsessions] + [dionysus.utils :as dutils] [dionysus.web.admin.home :as dwahome] [dionysus.web.admin.home.blacklist :as dwahblacklist] - [dionysus.web.admin.home.server-settings :as dwahserver-settings])) + [dionysus.web.admin.home.server-settings :as dwahserver-settings])) (def ^:private routes [["/" {:get {:handler dwahome/handle}}] @@ -35,11 +36,13 @@ :redirect-uri "/callback" :landing-uri "/"}}) rmsessions/wrap-session - rmparams/wrap-params)) + rmparams/wrap-params + delay)) (def ^:private stop-fn (atom nil)) (defn start-server! [] (when (fn? @stop-fn) (@stop-fn)) - (reset! stop-fn (http-server/run-server handler {:port (or (env/env "ADMIN_PORT") 8081)}))) + (reset! stop-fn (http-server/run-server @handler {:port (-> (env/env "ADMIN_PORT") + (dutils/try-parse-int 8081))}))) #_(start-server!) -- cgit v1.2.3