   (let [pod  (make-pod)
         src  (tmp-dir!)
         tmp  (tmp-dir!)
+        prev-pre (atom nil)
         prev (atom nil)
         out  (doto (io/file src "adzerk" "boot_reload.cljs") io/make-parents)
         url  (start-server @pod {:ip ip :port port :ws-host ws-host :secure? secure

        pr-str
        ((partial spit out-file))))))

(defn relevant-cljs-edn [fileset ids]
  (let [relevant  (map #(str % ".cljs.edn") ids)
        f         (if ids
                    #(b/by-name relevant %)
                    #(b/by-ext [".cljs.edn"] %))]
    (-> fileset b/input-files f)))

(deftask reload
  "Live reload of page resources in browser via websocket.

                                                                (ex-data e))})
                          (throw e)))]
          (send-changed! @pod asset-path (changed @prev fileset))
          (doseq [f (relevant-cljs-edn nil fileset ids)]
            (send-visual! @pod (:adzerk.boot-cljs/messages f)))
          (reset! prev fileset))))))
