Fix bug in websocket implementation

Author: vilmibm

src/murepl/events.clj

@@ -23,7 +23,7 @@
 
 (defn disconnect [uuid]
   "Unsubscribe player identified by uuid from the events framework."
-  (let [player (core/find-player-by-uuid uuid)
-        observers (core/others-in-room player (core/lookup-location player))]
+  (let [player    (core/find-player-by-uuid uuid)
+        observers (core/logout-player player)]
     (core/modify-player! (dissoc player :send-function))
     (notify-players observers (format "%s fades slowly away." (:name player)))))

src/murepl/net/websocket.clj

@@ -12,7 +12,7 @@
   (println "Websocket connected: " con))
 
 (defn close [con]
-  (let [uuid (get clients con)]
+  (let [uuid (get @clients con)]
     (events/disconnect uuid))
   (swap! clients dissoc con)
   (println "Websocket disconnected: " con))