Fix reading ports from env variables

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!)