core: /_wallet delete takes no confirmation word

The wallet is an API, and no other API command takes a typed confirmation:
/_delete user takes the profile password. The word was also no barrier to a
caller, which can read it from /_wallet export. Confirming belongs in the
command that will wrap this one.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Rvc3HbiWBTqbAvRT45G5oX

src/Simplex/Chat/Controller.hs

@@ -421,7 +421,7 @@ data ChatCommand
   | APIWalletCreate
   | APIWalletImport {recoveryPhrase :: Text}
   | APIWalletExport
-  | APIWalletDelete {confirmWord :: Text}
+  | APIWalletDelete
   | APISendCallInvitation ContactId CallType
   | SendCallInvitation ContactName CallType
   | APIRejectCall ContactId
@@ -751,7 +751,7 @@ allowRemoteCommand = \case
   APIWalletCreate -> False
   APIWalletImport _ -> False
   APIWalletExport -> False
-  APIWalletDelete _ -> False
+  APIWalletDelete -> False
   _ -> True
 
 data RelayConnectionResult = RelayConnectionResult

src/Simplex/Chat/Library/Commands.hs

@@ -1519,14 +1519,10 @@ processChatCommand cxt nm = \case
     seed <- withFastStore' getDeviceSeed >>= maybe (throwCmdError noKeyError) pure
     phrase <- either (throwCmdError . ("wallet: " <>)) pure $ recoveryKeyPhrase seed
     pure $ CRWalletPhrase user (safeDecodeUtf8 phrase)
-  APIWalletDelete confirmWord -> withUser $ \user -> do
+  APIWalletDelete -> withUser $ \_ -> do
     seed <- withFastStore' getDeviceSeed >>= maybe (throwCmdError noKeyError) pure
-    phrase <- either (throwCmdError . ("wallet: " <>)) pure $ recoveryKeyPhrase seed
-    case reverse . T.words $ safeDecodeUtf8 phrase of
-      w : _ | w == T.toLower confirmWord -> do
-        withFastStore' $ \db -> deleteSeed db (wsId seed)
-        processChatCommand cxt nm APIWallet
-      _ -> throwCmdError "this deletes the wallet key for all profiles on this device, to confirm pass the last word of the recovery phrase"
+    withFastStore' $ \db -> deleteSeed db (wsId seed)
+    processChatCommand cxt nm APIWallet
   APISendCallInvitation contactId callType -> withUser $ \user -> do
     -- party initiating call
     ct <- withFastStore $ \db -> getContact db cxt user contactId
@@ -5591,7 +5587,7 @@ chatCommandP =
       "/_wallet create" $> APIWalletCreate,
       "/_wallet import " *> (APIWalletImport <$> textP),
       "/_wallet export" $> APIWalletExport,
-      "/_wallet delete " *> (APIWalletDelete <$> textP),
+      "/_wallet delete" $> APIWalletDelete,
       "/_wallet" $> APIWallet,
       "/_call invite @" *> (APISendCallInvitation <$> A.decimal <* A.space <*> jsonP),
       "/call " *> char_ '@' *> (SendCallInvitation <$> displayNameP <*> pure defaultCallType),