Pup-Events-Server 1.1 → 1.1.1

raw patch · 2 files changed

+9/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Pup-Events-Server.cabal +1/−1
• PupEventsServer.hs +8/−2

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

@@ -10,6 +10,7 @@ import Control.Concurrent.STM.TChan (tryReadTChan) import Control.Concurrent import Control.Monad+import qualified Control.Exception as C import Text.Parsec import Network.Socket import System.IO@@ -55,8 +56,13 @@                     Nothing -> retry                     Just event -> return event         event' <- lookupHandler event event-        hPutStr handle (lookupUnHandler event' event')-        hFlush handle+        C.catch (+            do  hPutStr handle (lookupUnHandler event' event')+                hFlush handle+            ) (\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 -- after the connection is accepted, create a new channel for the dispatcher to