diff options
Diffstat (limited to 'src/dionysus/web')
| -rw-r--r-- | src/dionysus/web/admin.clj | 9 | ||||
| -rw-r--r-- | src/dionysus/web/enduser.clj | 4 |
2 files changed, 9 insertions, 4 deletions
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!) diff --git a/src/dionysus/web/enduser.clj b/src/dionysus/web/enduser.clj index 90b661b..ab28749 100644 --- a/src/dionysus/web/enduser.clj +++ b/src/dionysus/web/enduser.clj @@ -2,6 +2,7 @@ (:require [dotenv :as env] [org.httpkit.server :as http-server] [reitit.ring :as rring] + [dionysus.utils :as dutils] [dionysus.web.enduser.home :as dwehome] [dionysus.web.enduser.home.search :as dwehsearch] @@ -26,7 +27,8 @@ (defn start-server! [] (when (server-runs?) (@stop-fn)) - (reset! stop-fn (http-server/run-server handler {:port (or (env/env "ENDUSER_PORT") 8080)}))) + (reset! stop-fn (http-server/run-server handler {:port (-> (env/env "ENDUSER_PORT") + (dutils/try-parse-int 8080))}))) #_(start-server!) (defn stop-server! [] |