yesod-eventsource 1.1.0.2 → 1.1.1

raw patch · 2 files changed

+14/−2 lines, 2 filesdep +wai-extra

Dependencies added: wai-extra

Files

• Yesod/EventSource.hs +12/−1
• yesod-eventsource.cabal +2/−1

@@ -46,7 +46,18 @@                -> HandlerT site IO TypedContent repEventSource src =   prepareForEventSource >>=-  respondEventStream . ES.sourceToSource . src+  respondEventStream . sourceToSource . src++-- | Convert a ServerEvent source into a Builder source of serialized+-- events.+sourceToSource :: Monad m => C.Source m ES.ServerEvent -> C.Source m (C.Flush Builder)+sourceToSource src =+    src C.$= C.awaitForever eventToFlushBuilder+  where+    eventToFlushBuilder event =+        case ES.eventToBuilder event of+            Nothing -> return ()+            Just x -> C.yield (C.Chunk x) >> C.yield C.Flush   -- | Return a Server-Sent Event stream given a 'HandlerT' action

@@ -1,5 +1,5 @@ name:            yesod-eventsource-version:         1.1.0.2+version:         1.1.1 license:         MIT license-file:    LICENSE author:          Felipe Lessa <felipe.lessa@gmail.com>@@ -32,6 +32,7 @@                    , conduit               >= 0.5      && < 1.2                    , wai                   >= 1.3                    , wai-eventsource       >= 1.3+                   , wai-extra                    , blaze-builder                    , transformers     exposed-modules: Yesod.EventSource