From 75c8b6b9745ea8e64383e28d3f18b1609be00fa3 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 21 Apr 2017 22:23:00 -0400
Subject: add --download mode

Nice, was able to reuse all the protocol stuff from Role.Developer for
this.

This commit was sponsored by Fernando Jimenez on Patreon.
---
 Server.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Server.hs')

diff --git a/Server.hs b/Server.hs
index 3dd94be..1de02a4 100644
--- a/Server.hs
+++ b/Server.hs
@@ -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
 
-- 
cgit v1.2.3