diff options
Diffstat (limited to 'Server.hs')
-rw-r--r-- | Server.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -17,6 +17,7 @@ import Control.Concurrent.STM import Control.Concurrent.STM.TMChan import Control.Concurrent.Async import qualified Data.Map as M +import qualified Data.Text as T import Control.Exception import Data.Time.Clock.POSIX @@ -43,7 +44,7 @@ websocketApp o ssv pending_conn = do theirmode <- getMode conn case theirmode of InitMode _ -> user o ssv conn - ConnectMode t -> case mkSessionID t of + ConnectMode t -> case mkSessionID (T.unpack t) of Nothing -> error "Invalid session id!" Just sid -> developer o ssv sid conn |