diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 18:52:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 18:52:58 -0400 |
| commit | a5f677919c2db47149e545165c9cacbf2c6b07b4 (patch) | |
| tree | 680726764005749a05622551cd11ba0d13f914ef /Server.hs | |
| parent | 5572dbc8289de934e9ee5bc3f74a0f98365ce3e5 (diff) | |
| download | debug-me-a5f677919c2db47149e545165c9cacbf2c6b07b4.tar.gz | |
client now fully working
Diffstat (limited to 'Server.hs')
| -rw-r--r-- | Server.hs | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -36,14 +36,9 @@ app o ssv = websocketsOr WS.defaultConnectionOptions (websocketApp o ssv) webapp websocketApp :: ServerOpts -> TVar ServerState -> WS.ServerApp websocketApp o ssv pending_conn = do - print ("new connection" :: String) conn <- WS.acceptRequest pending_conn - sendWireVersions conn - print ("new connection open" :: String) - -- wv <- negotiateWireVersion conn - -- print ("version negotiated" :: String, wv) + wv <- negotiateWireVersion conn theirmode <- getMode conn - print ("Connected" :: String, theirmode) case theirmode of InitMode _ -> user o ssv conn ConnectMode t -> case mkSessionID t of |