IntenseFinance/simplex-chat
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix

Browse Source
This commit is contained in:
Evgeny Poberezkin 2023-04-07 11:01:33 +01:00
parent ccff79aa59
commit c7f5443920
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Simplex/Chat.hs
View File

@ -1542,7 +1542,7 @@ processChatCommand = \case
(Just contact, _) -> pure $ CRContactAlreadyExists user contact (Just contact, _) -> pure $ CRContactAlreadyExists user contact
(_, xContactId_) -> procCmd $ do (_, xContactId_) -> procCmd $ do
let groupLinkId = crClientData >>= decodeJSON >>= \(CRDataGroup gli) -> Just gli let groupLinkId = crClientData >>= decodeJSON >>= \(CRDataGroup gli) -> Just gli
when (isJust groupLinkId) $ throwChatError CEConnReqMessageProhibited when (isJust groupLinkId && isJust mc_) $ throwChatError CEConnReqMessageProhibited
let randomXContactId = XContactId <$> drgRandomBytes 16 let randomXContactId = XContactId <$> drgRandomBytes 16
xContactId <- maybe randomXContactId pure xContactId_ xContactId <- maybe randomXContactId pure xContactId_
-- [incognito] generate profile to send -- [incognito] generate profile to send