core: add group forwarding tests (#6067)

This commit is contained in:
spaced4ndy authored and GitHub committed 2025-07-14 10:52:38 +00:00
1 parent ca672bbc77
commit ed6ef02eeb
2 files changed
+107 -4

No files matched your search

-1
View File
@@ -3161,7 +3161,6 @@ processChatCommand vr nm = \case
Nothing -> do
setGroupLinkData'
let recipients = filter memberCurrentOrPending ms
liftIO $ putStrLn $ "about to sendGroupMessage to " <> show (length recipients)
sendGroupMessage user g' Nothing recipients (XGrpInfo p')
where
setGroupLinkData' :: CM ()