From fe3c26650bb1e267cce756831fdb9cde230cafd5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Apr 2017 21:06:04 -0400 Subject: use UUID to generate a unique SessionID --- Server.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Server.hs') diff --git a/Server.hs b/Server.hs index 4fa80a7..3dd94be 100644 --- a/Server.hs +++ b/Server.hs @@ -17,7 +17,6 @@ import Control.Concurrent.STM import Control.Concurrent.STM.TMChan import Control.Concurrent.Async import qualified Data.Map as M -import System.IO import Control.Exception import Data.Time.Clock.POSIX @@ -40,7 +39,7 @@ app o ssv = websocketsOr WS.defaultConnectionOptions (websocketApp o ssv) webapp websocketApp :: ServerOpts -> TVar ServerState -> WS.ServerApp websocketApp o ssv pending_conn = do conn <- WS.acceptRequest pending_conn - wv <- negotiateWireVersion conn + _v <- negotiateWireVersion conn theirmode <- getMode conn case theirmode of InitMode _ -> user o ssv conn -- cgit v1.2.3