From 4a6f7045f4f21beebd71ee89b451a9b0e4b559cd Mon Sep 17 00:00:00 2001 From: tolysz Date: Mon, 14 Jul 2014 12:22:44 +0100 Subject: [PATCH] copy and paste typo --- yesod-websockets/Yesod/WebSockets.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-websockets/Yesod/WebSockets.hs b/yesod-websockets/Yesod/WebSockets.hs index 57778faa..9d68ee1e 100644 --- a/yesod-websockets/Yesod/WebSockets.hs +++ b/yesod-websockets/Yesod/WebSockets.hs @@ -110,7 +110,7 @@ sendBinaryDataX ex x = ReaderT $ \c -> liftIO $ (flip WS.sendBinaryData x $ c) ` -- -- Since 0.1.1.3 sendPing :: (MonadIO m, WS.WebSocketsData a) => a -> WebSocketsT m () -sendPing x = ReaderT $ liftIO $ flip WS.sendPing x +sendPing x = ReaderT $ liftIO . flip WS.sendPing x -- | Send a ping message to the client. -- Execute IO () action on WebSocket Exception