gistfile1.clj

;; That one works:

(defroutes all-routes
  (GET "/req" req (str req)))

(def endpoint {:on-message (fn [channel message]
                             (websocket-message-received message channel))
               :on-close   (fn [channel {:keys [code reason]}]
                             (websocket-channel-closed channel code))})

(defn websock-create []
  (ws/create-handler endpoint))

(defn -main [& args]
    (run (websock-create)
      :host (config :host) :port (config :port) :path "/ws") ;; I connect to "ws://127.0.0.1:8080/ws" -- works
    (run (-> all-routes
             wrap-session
             reload/wrap-reload)
      :host (config :host) :port (config :port) :path "/"))


;; Code below is worse:

(defn -main [& args]
  (let [latch (promise)
        servlet (create-servlet all-routes)]
    (run (attach-endpoint servlet
                          (create-endpoint endpoint))
      :host (config :host) :port (config :port) :path "/")))

;; Ring handler all-routes works, but I can't connect to websocket to URL "ws://127.0.0.1:8080"