Pup-Events-Server 1.1.1 → 1.1.2

raw patch · 2 files changed

+5/−4 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• Pup-Events-Server.cabal +1/−1
• PupEventsServer.hs +4/−3

@@ -1,5 +1,5 @@ name:                   Pup-Events-Server-version:                1.1.1+version:                1.1.2 synopsis:               A networked event handling framework for hooking                         into other programs. description:            Pup-Events is a networking enabled event handling

@@ -48,8 +48,8 @@                 -> PQueue t -- ^ The PQueue on which to listen for events to be handled                 -> (t1 -> t1 -> String) -- ^ The lookup function to find the function that returns a string representation of the event.                 -> (t -> t -> IO t1) -- ^ The lookup function that returns the event handler-                -> IO b-handleEvents handle pqueue lookupUnHandler lookupHandler = forever $+                -> IO ()+handleEvents handle pqueue lookupUnHandler lookupHandler =     do  event <- atomically $             do  event <- getThing pqueue                 case event of@@ -59,9 +59,10 @@         C.catch (             do  hPutStr handle (lookupUnHandler event' event')                 hFlush handle+                handleEvents handle pqueue lookupUnHandler lookupHandler             ) (\e -> do let err = show (e :: C.IOException)                         hPutStr stderr ("Client disconnected")-                        return ())+                        )   -- accept a connection and fork a new thread to handle receiving events from it