wai-eventsource 1.3.0.4 → 2.0.0
raw patch · 2 files changed
+9/−9 lines, 2 filesdep ~waidep ~warp
Dependency ranges changed: wai, warp
Files
src/Network/Wai/EventSource.hs view
@@ -16,7 +16,7 @@ import Data.Conduit import qualified Data.Conduit.List as CL import Network.HTTP.Types (status200)-import Network.Wai (Application, Response(..))+import Network.Wai (Application, Response, responseSource) import Network.Wai.EventSource.EventStream @@ -29,7 +29,7 @@ -- | Make a new WAI EventSource application reading events from -- the given source.-eventSourceAppSource :: Source (ResourceT IO) ServerEvent -> Application+eventSourceAppSource :: Source IO ServerEvent -> Application eventSourceAppSource src _ = return $ response sourceToSource src -- | Make a new WAI EventSource application reading events from@@ -37,13 +37,13 @@ eventSourceAppIO :: IO ServerEvent -> Application eventSourceAppIO act _ = return $ response ioToSource act -response :: (a -> Source (ResourceT IO) (Flush Builder)) -> a -> Response-response f a = ResponseSource status200 [("Content-Type", "text/event-stream")] $ f a+response :: (a -> Source IO (Flush Builder)) -> a -> Response+response f a = responseSource status200 [("Content-Type", "text/event-stream")] $ f a -chanToSource :: Chan ServerEvent -> Source (ResourceT IO) (Flush Builder)+chanToSource :: Chan ServerEvent -> Source IO (Flush Builder) chanToSource = ioToSource . readChan -ioToSource :: IO ServerEvent -> Source (ResourceT IO) (Flush Builder)+ioToSource :: IO ServerEvent -> Source IO (Flush Builder) ioToSource act = loop where
wai-eventsource.cabal view
@@ -1,5 +1,5 @@ Name: wai-eventsource-Version: 1.3.0.4+Version: 2.0.0 Synopsis: WAI support for server-sent events Description: WAI support for server-sent events License: MIT@@ -19,8 +19,8 @@ , blaze-builder >= 0.3 && < 0.4 , conduit >= 0.5 && < 1.1 , http-types >= 0.7- , wai >= 1.3 && < 1.5- , warp >= 1.3 && < 1.4+ , wai >= 2.0 && < 2.1+ , warp >= 2.0 && < 2.1 , transformers ghc-options: -Wall