diff options
Diffstat (limited to 'src/dionysus/web/admin.clj')
| -rw-r--r-- | src/dionysus/web/admin.clj | 9 |
1 files changed, 6 insertions, 3 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!) |