control: try deleting from senders first (#950)

2026-07-17 12:11:53 +00:00 · 2024-01-05 17:07:29 +00:00
parent 2488cf1e3a
commit 87cec9ad16
1 changed files with 4 additions and 1 deletions
@@ -343,10 +343,13 @@ smpServer started cfg@ServerConfig {transports, transportConfig = tCfg} = do
 #else
                hPutStrLn h "Not available on GHC 8.10"
 #endif
-              CPDelete queueId -> unliftIO u $ do
+              CPDelete queueId' -> unliftIO u $ do
                st <- asks queueStore
                ms <- asks msgStore
                stats <- asks serverStats
+                queueId <- atomically (getQueue st SSender queueId') >>= \case
+                  Left _ -> pure queueId' -- fallback to using as recipientId directly
+                  Right QueueRec {recipientId} -> pure recipientId
                r <- atomically $
                  deleteQueue st queueId $>>= \() ->
                    Right <$> delMsgQueueSize ms queueId