                        (send! wschannel (prn-str msg)))))))
     
     (on-close wschannel (fn [status]
+                          (swap! connection-count dec)
                           (remove-watch file-change-atom watch-key)
-                          (println "Figwheel: client disconnected " status)))
+                          #_(println "Figwheel: client disconnected " status)))
 
     (on-receive wschannel (fn [data] (handle-client-msg server-state data)))
 

                       { :msg-name msg-name 
                         :project-id (:unique-id opts)})))

(defn setup-file-change-sender [{:keys [file-change-atom compile-wait-time] :as server-state}
                                wschannel]
  (let [watch-key (keyword (gensym "message-watch-"))]
    (add-watch file-change-atom
               watch-key
               (fn [_ _ o n]


(defn stop-server [{:keys [http-server]}]
  (http-server))

