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.

1 files changed, 2 insertions, 1 deletions

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