prepare v1.1.0 (#259)

src/Simplex/Chat.hs

@@ -365,8 +365,7 @@ processChatCommand user@User {userId, profile} = \case
       corrId <- liftIO $ SMP.CorrId <$> randomBytes gVar 8
       void . forkIO $
         withAgentLock a . withLock l $
-          atomically . writeTBQueue q
-            =<< (Just corrId,) <$> (action `catchError` (pure . CRChatError))
+          (atomically . writeTBQueue q) . (Just corrId,) =<< (action `catchError` (pure . CRChatError))
       pure $ CRCmdAccepted corrId
     -- use function below to make commands "synchronous"
     -- procCmd :: m ChatResponse -> m ChatResponse

src/Simplex/Chat/Controller.hs

@@ -35,7 +35,7 @@ import System.IO (Handle)
 import UnliftIO.STM
 
 versionNumber :: String
-versionNumber = "1.0.2"
+versionNumber = "1.1.0"
 
 versionStr :: String
 versionStr = "SimpleX Chat v" <> versionNumber

src/Simplex/Chat/View.hs

@@ -117,7 +117,8 @@ responseToView cmd = \case
   where
     api = (highlight cmd :)
     r = (plain cmd :)
-    -- this function should be `r` for "synchronous" command responses
+    -- this function should be `r` for "synchronous", `id` for "asynchronous" command responses
+    -- r' = r
     r' = id
 
 viewChatItem :: ChatInfo c -> ChatItem c d -> [StyledString]
@@ -482,6 +483,7 @@ viewChatError = \case
     SEDuplicateContactLink -> ["you already have chat address, to show: " <> highlight' "/sa"]
     SEUserContactLinkNotFound -> ["no chat address, to create: " <> highlight' "/ad"]
     SEContactRequestNotFoundByName c -> ["no contact request from " <> ttyContact c]
+    SEConnectionNotFound _ -> [] -- TODO mutes delete group error, but also mutes any error from getConnectionEntity
     e -> ["chat db error: " <> sShow e]
   ChatErrorAgent err -> case err of
     SMP SMP.AUTH -> ["error: this connection is deleted"]