use UUID to generate a unique SessionID

1 files changed, 1 insertions, 2 deletions

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