Skip to content
This repository
Browse code

Oops, fix build

  • Loading branch information...
commit 2812d6c8d29890e9aa786a5da56ba89c9bcebccd 1 parent 5fa21ac
Chris Smith authored August 25, 2011

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  src/EventStream.hs
4  src/EventStream.hs
@@ -71,11 +71,11 @@ flushAfter b = b `mappend` flush
71 71
     @text/event-stream@ content type.
72 72
 -}
73 73
 eventToBuilder :: ServerEvent -> Maybe Builder
74  
-eventToBuilder (ServerEvent n i d)= Just $ flushAfter $
75  
-    (name n $ evid i $ mconcat (map (field dataField) d)) `mappend` nl
76 74
 eventToBuilder (CommentEvent txt) = Just $ flushAfter $ field commentField txt
77 75
 eventToBuilder (RetryEvent   n)   = Just $ flushAfter $ field retryField (fromShow n)
78 76
 eventToBuilder (CloseEvent)       = Nothing
  77
+eventToBuilder (ServerEvent n i d)= Just $ flushAfter $
  78
+    (name n $ evid i $ mconcat (map (field dataField) d)) `mappend` nl
79 79
   where
80 80
     name Nothing  = id
81 81
     name (Just n) = mappend (field nameField n)

0 notes on commit 2812d6c

Please sign in to comment.
Something went wrong with that request. Please try again.