diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs index c601c3efd6..e62dd88f7d 100644 --- a/src/Simplex/Chat/Library/Commands.hs +++ b/src/Simplex/Chat/Library/Commands.hs @@ -1516,7 +1516,7 @@ processChatCommand cxt nm = \case APIWalletDelete -> withUser $ \_ -> do seed <- deviceSeed withFastStore' $ \db -> deleteSeed db (wsId seed) - processChatCommand cxt nm APIWallet + ok_ APISendCallInvitation contactId callType -> withUser $ \user -> do -- party initiating call ct <- withFastStore $ \db -> getContact db cxt user contactId diff --git a/tests/WalletTests.hs b/tests/WalletTests.hs index 4afbb0bff9..8e25344cba 100644 --- a/tests/WalletTests.hs +++ b/tests/WalletTests.hs @@ -138,7 +138,7 @@ testWalletDelete ps = withNewTestChat ps "alice" aliceProfile $ \alice -> do alice ##> ("/_wallet create mnemonic=" <> B.unpack testPhrase) _ <- nameRows alice alice ##> "/_wallet delete" - alice <## "no wallet key" + alice <## "ok" alice ##> ("/_wallet create mnemonic=" <> B.unpack testPhrase) _ <- nameRows alice pure ()