websockets 0.3.1.0 → 0.3.1.1

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• src/Network/WebSockets/Monad.hs +4/−1
• websockets.cabal +1/−1

@@ -99,8 +99,11 @@         Nothing -> return ()         Just i  -> do             _ <- liftIO $ forkIO $ forever $ do-                sender E.ping ("Hi" :: ByteString)+                -- An ugly hack here. We first sleep before sending the first+                -- ping, so the ping (hopefully) doesn't interfere with the+                -- intitial request/response.                 threadDelay (i * 1000 * 1000)  -- seconds+                sender E.ping ("Hi" :: ByteString)             return ()  -- | Receive some data from the socket, using a user-supplied parser.

@@ -1,5 +1,5 @@ Name:    websockets-Version: 0.3.1.0+Version: 0.3.1.1  Cabal-version:  >= 1.6