diff options
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 |