packages feed

wai-eventsource 1.3.0 → 1.3.0.1

raw patch · 3 files changed

+11/−15 lines, 3 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

+ Network.Wai.EventSource.EventStream: CloseEvent :: ServerEvent
+ Network.Wai.EventSource.EventStream: CommentEvent :: Builder -> ServerEvent
+ Network.Wai.EventSource.EventStream: RetryEvent :: Int -> ServerEvent
+ Network.Wai.EventSource.EventStream: ServerEvent :: Maybe Builder -> Maybe Builder -> [Builder] -> ServerEvent
+ Network.Wai.EventSource.EventStream: data ServerEvent
+ Network.Wai.EventSource.EventStream: eventComment :: ServerEvent -> Builder
+ Network.Wai.EventSource.EventStream: eventData :: ServerEvent -> [Builder]
+ Network.Wai.EventSource.EventStream: eventId :: ServerEvent -> Maybe Builder
+ Network.Wai.EventSource.EventStream: eventName :: ServerEvent -> Maybe Builder
+ Network.Wai.EventSource.EventStream: eventRetry :: ServerEvent -> Int
+ Network.Wai.EventSource.EventStream: eventToBuilder :: ServerEvent -> Maybe Builder

Files

src/Network/Wai/EventSource.hs view
@@ -1,4 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}+{-|+    A WAI adapter to the HTML5 Server-Sent Events API.+-} module Network.Wai.EventSource (     ServerEvent(..),     eventSourceAppChan,
src/Network/Wai/EventSource/EventStream.hs view
@@ -2,8 +2,7 @@ {- code adapted by Mathias Billman originaly from Chris Smith https://github.com/cdsmith/gloss-web -}  {-|-    A WAI adapter to the HTML5 Server-Sent Events API.  Push-mode and-    pull-mode interfaces are both available.+    Internal module, usually you don't need to use it. -} module Network.Wai.EventSource.EventStream (     ServerEvent(..),@@ -60,21 +59,14 @@   {-|-    Appends a buffer flush to the end of a Builder.--}-flushAfter :: Builder -> Builder-flushAfter b = b `mappend` flush---{-|     Converts a 'ServerEvent' to its wire representation as specified by the     @text/event-stream@ content type. -} eventToBuilder :: ServerEvent -> Maybe Builder-eventToBuilder (CommentEvent txt) = Just $ flushAfter $ field commentField txt-eventToBuilder (RetryEvent   n)   = Just $ flushAfter $ field retryField (fromShow n)+eventToBuilder (CommentEvent txt) = Just $ field commentField txt+eventToBuilder (RetryEvent   n)   = Just $ field retryField (fromShow n) eventToBuilder (CloseEvent)       = Nothing-eventToBuilder (ServerEvent n i d)= Just $ flushAfter $+eventToBuilder (ServerEvent n i d)= Just $     (name n $ evid i $ mconcat (map (field dataField) d)) `mappend` nl   where     name Nothing  = id
wai-eventsource.cabal view
@@ -1,5 +1,5 @@ Name:                wai-eventsource-Version:             1.3.0+Version:             1.3.0.1 Synopsis:            WAI support for server-sent events Description:         WAI support for server-sent events License:             MIT@@ -25,8 +25,9 @@    ghc-options:     -Wall   hs-source-dirs:  src-  exposed-modules: Network.Wai.EventSource-  other-modules:   Network.Wai.EventSource.EventStream+  exposed-modules:+    Network.Wai.EventSource+    Network.Wai.EventSource.EventStream  source-repository head   type:     git