websockets 0.10 support

yesod-websockets/ChangeLog.md

@@ -1,3 +1,7 @@
+## 0.2.4.1
+
+* Support for websockets 0.10
+
 ## 0.2.3
 
 * `receiveDataMessageE` and `sendDataMessageE`

yesod-websockets/Yesod/WebSockets.hs

@@ -56,7 +56,11 @@ type WebSocketsT = ReaderT WS.Connection
 --
 -- Since 0.1.0
 webSockets :: (Y.MonadBaseControl IO m, Y.MonadHandler m) => WebSocketsT m () -> m ()
+#if MIN_VERSION_websockets(0,10,0)
+webSockets = webSocketsWith $ const $ return $ Just $ WS.AcceptRequest Nothing []
+#else
 webSockets = webSocketsWith $ const $ return $ Just $ WS.AcceptRequest Nothing
+#endif
 
 -- | Varient of 'webSockets' which allows you to specify the 'WS.AcceptRequest'
 -- setttings when upgrading to a websocket connection.

yesod-websockets/yesod-websockets.cabal

@@ -1,5 +1,5 @@
 name:                yesod-websockets
-version:             0.2.4
+version:             0.2.4.1
 synopsis:            WebSockets support for Yesod
 description:         WebSockets support for Yesod
 homepage:            https://github.com/yesodweb/yesod