Merge branch 'master' into remote-desktop

apps/simplex-chat/Main.hs

@@ -28,7 +28,7 @@ main = do
         welcome opts
         t <- withTerminal pure
         simplexChatTerminal terminalChatConfig opts t
-    else simplexChatCore terminalChatConfig opts Nothing $ \user cc -> do
+    else simplexChatCore terminalChatConfig opts $ \user cc -> do
       rh <- readTVarIO $ currentRemoteHost cc
       let cmdRH = rh -- response RemoteHost is the same as for the command itself
       r <- sendChatCmdStr cc chatCmd

apps/simplex-chat/Server.hs

@@ -30,7 +30,7 @@ import UnliftIO.STM
 
 simplexChatServer :: ChatServerConfig -> ChatConfig -> ChatOpts -> IO ()
 simplexChatServer srvCfg cfg opts =
-  simplexChatCore cfg opts Nothing . const $ runChatServer srvCfg
+  simplexChatCore cfg opts . const $ runChatServer srvCfg
 
 data ChatServerConfig = ChatServerConfig
   { chatPort :: ServiceName,