Better timeout modifier

jaspervdj · jaspervdj · commit ae89a1ecb200 · 2012-03-17T14:33:32.000+01:00
diff --git a/src/Network/WebSockets/Snap.hs b/src/Network/WebSockets/Snap.hs
@@ -27,7 +27,7 @@ runWebSocketsSnapWith options ws = do
     rq <- Snap.getRequest
     Snap.escapeHttp $ \tickle writeEnd ->
         let options' = options
-                { WS.onPong = tickle (+ 30) >> WS.onPong options
+                { WS.onPong = tickle (max 30) >> WS.onPong options
                 }
 
         in WS.runWebSocketsWith options' (fromSnapRequest rq) ws writeEnd
diff --git a/websockets-snap.cabal b/websockets-snap.cabal
@@ -1,5 +1,5 @@
 Name:          websockets-snap
-Version:       0.6.0.0
+Version:       0.6.0.1
 Synopsis:      Snap integration for the websockets library
 Description:   Snap integration for the websockets library
 License:       BSD3

Original file line number	Diff line number	Diff line change
`@@ -27,7 +27,7 @@ runWebSocketsSnapWith options ws = do`
`27`	`27`	`rq <- Snap.getRequest`
`28`	`28`	`Snap.escapeHttp $ \tickle writeEnd ->`
`29`	`29`	`let options' = options`
`30`		`- { WS.onPong = tickle (+ 30) >> WS.onPong options`
	`30`	`+ { WS.onPong = tickle (max 30) >> WS.onPong options`
`31`	`31`	`}`
`32`	`32`
`33`	`33`	`in WS.runWebSocketsWith options' (fromSnapRequest rq) ws writeEnd`