Fix for ping messages being malformed

biilmann · Sep 18, 2011 · f2936e7 · f2936e7
1 parent 7e76dc2
commit f2936e7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Makefile b/Makefile
@@ -2,7 +2,7 @@ RELEASE_DIR = dist/app
 
 all:
 	mkdir -p $(RELEASE_DIR)
-	cabal build
+	cabal install -flibev
 	cp dist/build/eventsource-broker/eventsource-broker $(RELEASE_DIR)/eventsource-broker
 	cp -r static $(RELEASE_DIR)
 	cp -r templates $(RELEASE_DIR)

diff --git a/src/EventStream.hs b/src/EventStream.hs
@@ -130,7 +130,7 @@ eventSourceEnum source builder timeoutAction finalizer = go
         Just (Just b)  -> k (Chunks [b]) >>== go
         Just Nothing -> k EOF
         Nothing -> do
-          k (Chunks [flushAfter $ field commentField "ping"]) >>== go
+          k (Chunks [flushAfter $ field commentField (fromString "ping")]) >>== go
     go step = do
       liftIO finalizer
       returnI step