scheme of API responses hardcoded to https
This commit is contained in:
@@ -143,12 +143,10 @@
|
|||||||
(def app
|
(def app
|
||||||
(let [handler (handler/site app-routes)]
|
(let [handler (handler/site app-routes)]
|
||||||
(fn [request]
|
(fn [request]
|
||||||
(let [{:keys [scheme server-name server-port]} request
|
(let [{:keys [server-name server-port]} request
|
||||||
hostURL (str (name scheme) "://" server-name
|
hostURL (str "https://" server-name
|
||||||
(when (not= 80 server-port) (str ":" server-port)))
|
(when (not= 80 server-port) (str ":" server-port)))
|
||||||
request (assoc-in request [:params :hostURL] hostURL)]
|
request (assoc-in request [:params :hostURL] hostURL)]
|
||||||
(println (str (java.util.Date.) ":") (request :request-method) (str hostURL (request :uri)) "-"
|
|
||||||
((request :headers) "user-agent"))
|
|
||||||
(if (get-setting :dev-mode)
|
(if (get-setting :dev-mode)
|
||||||
(handler request)
|
(handler request)
|
||||||
(try (handler request)
|
(try (handler request)
|
||||||
|
|||||||
Reference in New Issue
Block a user