haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

copy and paste typo

Browse Source
This commit is contained in:
tolysz 2014-07-14 12:22:44 +01:00
parent 65c0bd5c64
commit 4a6f7045f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-websockets/Yesod/WebSockets.hs
View File

@ -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