scheme of API responses hardcoded to https

2014-10-05 10:32:37 +02:00
parent f039a4c23e
commit c5bfaac691
1 changed files with 2 additions and 4 deletions
@@ -143,12 +143,10 @@
 (def app
  (let [handler (handler/site app-routes)]
    (fn [request]
-      (let [{:keys [scheme server-name server-port]} request
-            hostURL (str (name scheme) "://" server-name
+      (let [{:keys [server-name server-port]} request
+            hostURL (str "https://" server-name
                          (when (not= 80 server-port) (str ":" server-port)))
            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)
        (handler request)
        (try (handler request)