 - :state A ref of session state
 - :wc Websocket client
 - :sender An agent used to send messages in coordination with state changes"
-  [server room]
+  [server room dispatch]
   (let [url (address server room)
         wc @(ah/websocket-client url)
         state (ref initial-state)

        (println "Throttled, sleeping.")
        (Thread/sleep 300))

(defn -main
  "Demo connection to heim"
  [server room]
  (let [session (run server room)]
    ))

                      :error-mode :fail)
        session {:state state
                 :wc wc
                 :sender sender
                 :dispatch dispatch}
        reactor (future (try (react-to session)
                             (catch Throwable t
                               (.printStackTrace t)
