                        (assoc comm :respond respond)))
     (when @has-messages (long-poll-send comm-atom nil))))
 
-;; TODO this si an abstract part of sending a message and getting a
+;; TODO this is an abstract part of sending a message and getting a
 ;; response
 (defn ping [conn]
   (let [prom (promise)

(defn debug [msg]
  (glog/log logger goog.debug.Logger.Level.FINEST msg))

;; dev
(.setLevel logger goog.debug.Logger.Level.FINE #_ST )

;; --------------------------------------------------------------

  {:status 200
   :headers {"Content-Type" "application/json"}
   :body json-body})

(defn http-polling-send [conn data]
  (swap! (::comm-atom conn) update :messages (fnil conj []) data))
