Pedestal sample application not working properly

pedestall sse application

;; clj
;; ===

(def stored-event-channel (atom nil))

(defn start-foo-events [ctx]
  (async/go (loop [n 1000]
              (Thread/sleep 10)
              (async/>! @stored-event-channel "ping")
              (recur (dec n)))
            (async/close! @stored-event-channel)))

(defbefore handle-foo-event [ctx]
  (let [ctx (sse/start-stream (fn [c] (swap! stored-event-channel (constantly c))) ctx 10)]
    (if @stored-event-channel (start-foo-events ctx))
    ctx))

(def routes
  (expand-routes
    '[[["/msgs/:foo/:baz" handle-foo-event]]]))


;; cljs  (In the browser)
;; ====

(def evt-src (atom nil))

(defn start-reload-event []
  (let [pathname (.-pathname js/window.location)
        es (js/EventSource. (str "/msgs" pathname))]
    (swap! evt-src (constantly es))
    (.log js/console "Starting event source..")
    (.addEventListener es "event"
      (fn [e]
        (.log js/console e))
      false)))

(start-reload-event)