fix sample

Signed-off-by: Chris Granger <ibdknox@gmail.com>
ibdknox · Apr 30, 2011 · 5d04dc5 · 5d04dc5
1 parent d93463b
commit 5d04dc5
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/examples/echo.clj b/examples/echo.clj
@@ -1,13 +1,16 @@
 (ns clj-socketio.examples.echo
   (:use clj-socketio.core))
 
+(def server (create 8080))
 (def clients (atom #{}))
 
-(on-connected (fn [client]
-                (swap! clients conj client)))
+(on-connected server (fn [client]
+                       (swap! clients conj client)))
 
-(on-disconnect (fn [client]
-                   (swap! clients disj client)))
+(on-disconnect server (fn [client]
+                        (swap! clients disj client)))
 
-(on-message (fn [client msg]
-              (println msg)))
+(on-message server (fn [client msg]
+                     (println msg)))
+
+(start server)