 (defn channels-handler [request]
   (edn-response
     (let [params (:params request)
-          lon (read-string (get params "lon"))
-          lat (read-string (get params "lat"))]
+          lon (read-string (:lon params))
+          lat (read-string (:lat params))]
       (get-channels lon lat))))
 
 (defn new-channel [channel-name lon lat]

            [compojure.route :as route]
            [compojure.core :refer [GET POST defroutes]]
            [ring.util.response :as resp]
            [ring.middleware.params :as params]
            [aleph.http :refer :all]
            [aleph.formats :refer :all]
            [lamina.core :refer :all]

  (GET "/api/chat/messages/:thread-id" [] chat-messages-handler)
  (GET ["/api/chat/ws/:thread-id", :thread-id #"[0-9A-Za-z]+"] {}
       (wrap-aleph-handler chat-thread-ws-handler))
  (GET "/*" [] (serve-page "index"))
  (route/not-found "Page not found"))

(defn -main [& args]
