 (defn chat-threads-handler [request]
   (edn-response
     (let [params (:route-params request)
-          channel-id (read-string (:channel-id params))]
+          channel-id (Integer/parseInt (:channel-id params))]
       (get-threads channel-id))))
 
 (defn new-chat-thread [channel-id thread-descr]

(defn channels-handler [request]
  (edn-response
    (let [params (:params request)
          lon (read-string (:lon params))
          lat (read-string (:lat params))]
      (get-channels lon lat))))

(defn new-channel [channel-name lon lat]

(defn chat-messages-handler [request]
  (edn-response
    (let [params (:route-params request)
          thread-id (Integer/parseInt (:thread-id params))]
      (get-messages thread-id))))

(defn add-msg [thread-id msg]
