EventSource: Export sourceToSource as a low-level option
commitbf4c11f32e5f3cb1f1eb064ad699c037e2e90ec5
authorBardur Arantsson <bardur@scientician.net>
dateFri 25 May 2012, 05:48 (14 years ago)
parentc28ffe2
wai-eventsource/src/Network/Wai/EventSource.hs+4−1
@@ -3,7 +3,8 @@ module Network.Wai.EventSource (
33 ServerEvent(..),
44 eventSourceAppChan,
55 eventSourceAppSource,
6− eventSourceAppIO
6+ eventSourceAppIO,
7+ sourceToSource
78 ) where
89
910import Blaze.ByteString.Builder (Builder)
@@ -59,6 +60,8 @@ ioToSource act =
5960 Just y -> C.StateOpen (Just C.Flush) (C.Chunk y)
6061 pull (Just x) = return $ C.StateOpen Nothing x
6162
63+-- | Convert a ServerEvent source into a Builder source of serialized
64+-- events.
6265sourceToSource :: Monad m => C.Source m ServerEvent -> C.Source m (C.Flush Builder)
6366sourceToSource src = src $= CL.concatMap eventToFlushBuilder
6467 where