 ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ; server connection, sending / receiving
 
-(declare register-channel find-channel channels app)
+(declare register-channel find-channel channels app
+         register-service-handler close-connection-service-handler
+         send-message-impl)
 
 (defrecord MessengerImpl [host port stop-fn receive-channel]
   m/IReceiver

  (swap! channels assoc id {:channel channel :data register-data}))

; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

(comment
 (start-server! :port 8082)


(defonce log (agent []))

(def debug false)

(defn log-req
  [app]
