From a5f677919c2db47149e545165c9cacbf2c6b07b4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 18:52:58 -0400 Subject: client now fully working --- Server.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'Server.hs') diff --git a/Server.hs b/Server.hs index 37316c3..26e274b 100644 --- a/Server.hs +++ b/Server.hs @@ -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 -- cgit v1.2.3