diff --git a/yesod-websockets/ChangeLog.md b/yesod-websockets/ChangeLog.md index ca3f4abf..d1bfa439 100644 --- a/yesod-websockets/ChangeLog.md +++ b/yesod-websockets/ChangeLog.md @@ -1,3 +1,7 @@ +## 0.2.4.1 + +* Support for websockets 0.10 + ## 0.2.3 * `receiveDataMessageE` and `sendDataMessageE` diff --git a/yesod-websockets/Yesod/WebSockets.hs b/yesod-websockets/Yesod/WebSockets.hs index d064022f..8b29ffac 100644 --- a/yesod-websockets/Yesod/WebSockets.hs +++ b/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. diff --git a/yesod-websockets/yesod-websockets.cabal b/yesod-websockets/yesod-websockets.cabal index 6b9207c8..d5a6bac3 100644 --- a/yesod-websockets/yesod-websockets.cabal +++ b/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