support sending event types

ninjudd · Mar 7, 2014 · 36712d0 · 36712d0
1 parent b8bcc02
commit 36712d0
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/ninjudd/eventual/server.clj b/src/ninjudd/eventual/server.clj
@@ -22,6 +22,8 @@
              (when event
                (when-let [event-id (:event-id (meta event))]
                  (>! out (str "id: " event-id "\n")))
+               (when-let [event-type (:event-type (meta event))]
+                 (>! out (str "event: " event-type "\n")))
                (>! out (str "data: " (f event) "\n\n"))
                (recur))
              (= ch keepalive)