diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
| commit | fe3c26650bb1e267cce756831fdb9cde230cafd5 (patch) | |
| tree | 5482e3b0f600fd6bb79087e9b26c4539d7530d6c /WebSockets.hs | |
| parent | 378770cde6fb9fd85983c05eab9eeff2e34398c2 (diff) | |
| download | debug-me-fe3c26650bb1e267cce756831fdb9cde230cafd5.tar.gz | |
use UUID to generate a unique SessionID
Diffstat (limited to 'WebSockets.hs')
| -rw-r--r-- | WebSockets.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/WebSockets.hs b/WebSockets.hs index c7893fb..25f2162 100644 --- a/WebSockets.hs +++ b/WebSockets.hs @@ -20,12 +20,12 @@ runClientApp = runClient "localhost" 8081 "/" -- | Make a client that sends and receives Messages over a websocket. clientApp - :: (Show sent, WebSocketsData (Message sent), WebSocketsData (Message received)) + :: (WebSocketsData (Message sent), WebSocketsData (Message received)) => Mode -> (TChan (Message sent) -> TChan (Message received) -> SessionID -> IO a) -> ClientApp a clientApp mode a conn = do - vs <- negotiateWireVersion conn + _v <- negotiateWireVersion conn sendMode conn mode sid <- receiveData conn bracket setup cleanup (go sid) @@ -51,12 +51,11 @@ relayFromSocket conn sender = go sender msg go -relayToSocket :: Show sent => WebSocketsData (Message sent) => Connection -> (IO (Maybe (Message sent))) -> IO () +relayToSocket :: WebSocketsData (Message sent) => Connection -> (IO (Maybe (Message sent))) -> IO () relayToSocket conn getter = go where go = do mmsg <- getter - print ("got message", mmsg) case mmsg of Nothing -> go Just msg -> do |