diff --git a/src/Simplex/Chat/Store/Shared.hs b/src/Simplex/Chat/Store/Shared.hs index e078efbe9d..a7b32d6cd1 100644 --- a/src/Simplex/Chat/Store/Shared.hs +++ b/src/Simplex/Chat/Store/Shared.hs @@ -110,7 +110,7 @@ data StoreError | SERemoteHostDuplicateCA | SERemoteCtrlNotFound {remoteCtrlId :: RemoteCtrlId} | SERemoteCtrlDuplicateCA - | SEProhibitedDeleteUser {userId :: UserId, contactId_ :: Maybe ContactId} + | SEProhibitedDeleteUser {userId :: UserId} deriving (Show, Exception) $(J.deriveJSON (sumTypeJSON $ dropPrefix "SE") ''StoreError) @@ -420,7 +420,7 @@ assertNotUser db User {userId} Contact {contactId, localDisplayName} = do LIMIT 1 |] (userId, localDisplayName, contactId) - when (isJust r) $ throwError $ SEProhibitedDeleteUser userId (Just contactId) + when (isJust r) $ throwError $ SEProhibitedDeleteUser userId safeDeleteLDN :: DB.Connection -> User -> ContactName -> IO () safeDeleteLDN db User {userId} localDisplayName = do