diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 21:06:04 -0400 |
commit | fe3c26650bb1e267cce756831fdb9cde230cafd5 (patch) | |
tree | 5482e3b0f600fd6bb79087e9b26c4539d7530d6c /Server.hs | |
parent | 378770cde6fb9fd85983c05eab9eeff2e34398c2 (diff) | |
download | debug-me-fe3c26650bb1e267cce756831fdb9cde230cafd5.tar.gz |
use UUID to generate a unique SessionID
Diffstat (limited to 'Server.hs')
-rw-r--r-- | Server.hs | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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 |