Remove debugging statements

services/brig/src/Brig/Data/MLS/KeyPackage.hs

@@ -45,7 +45,6 @@ import Data.Id
 import Data.Qualified
 import Data.Time.Clock
 import Data.Time.Clock.POSIX
-import Debug.Trace
 import Imports
 import Wire.API.MLS.Credential
 import Wire.API.MLS.KeyPackage
@@ -187,8 +186,7 @@ keyPackageRefSetConvId ref convId = do
     q = "UPDATE mls_key_package_refs SET conv_domain = ?, conv = ? WHERE ref = ? IF EXISTS"
 
 addKeyPackageRef :: MonadClient m => KeyPackageRef -> NewKeyPackageRef -> m ()
-addKeyPackageRef ref nkpr = do
-  traceM ("addKeyPackageRef " <> show ref)
+addKeyPackageRef ref nkpr =
   retry x5 $
     write
       q
@@ -205,13 +203,12 @@ addKeyPackageRef ref nkpr = do
 -- FUTUREWORK: this function has to be extended if a table mapping (client,
 -- conversation) to key package ref is added, for instance, when implementing
 -- external delete proposals.
-updateKeyPackageRef :: (MonadClient m) => KeyPackageRef -> KeyPackageRef -> m ()
+updateKeyPackageRef :: MonadClient m => KeyPackageRef -> KeyPackageRef -> m ()
 updateKeyPackageRef prevRef newRef =
   void . runMaybeT $ do
     backup <- backupKeyPackageMeta prevRef
     lift $ do
       restoreKeyPackageMeta newRef backup
-      traceM ("updateKeyPackageRef: calling deleteKeyPackage with ref " <> show prevRef)
       deleteKeyPackage prevRef
 
 --------------------------------------------------------------------------------

services/galley/src/Galley/API/MLS/Message.hs

@@ -27,7 +27,6 @@ module Galley.API.MLS.Message
 where
 
 import Control.Arrow ((>>>))
-import Debug.Trace
 import Control.Comonad
 import Control.Error.Util (hush)
 import Control.Lens (forOf_, preview)
@@ -476,9 +475,7 @@ getSenderClient qusr SMLSPlainText msg = case msgSender msg of
   PreconfiguredSender _ -> pure Nothing
   NewMemberSender -> pure Nothing
   MemberSender ref -> do
-    traceM "getSenderClient before"
     cid <- derefKeyPackage ref
-    traceM "getSenderClient after"
     when (fmap fst (cidQualifiedClient cid) /= qusr) $
       throwS @'MLSClientSenderUserMismatch
     pure (Just (ciClient cid))
@@ -822,9 +819,7 @@ processExternalCommit qusr mSenderClient lConvOrSub epoch action updatePath = wi
         unless (user == u) $
           throwS @'MLSClientSenderUserMismatch
         ref <- ensureSingleton clients
-        traceM "derefUser before"
         ci <- derefKeyPackage ref
-        traceM "derefUser after"
         unless (cidQualifiedUser ci == user) $
           throwS @'MLSClientSenderUserMismatch
         pure (ci, ref)
@@ -1078,9 +1073,7 @@ applyProposal convOrSubConvId groupId (AddProposal kp) = do
       addMLSClients groupId qusr (Set.singleton (ciClient cid, ref))
       pure cid
 applyProposal _convOrSubConvId _groupId (RemoveProposal ref) = do
-  traceM "applyProposal before"
   qclient <- cidQualifiedClient <$> derefKeyPackage ref
-  traceM "applyProposal after"
   pure (paRemoveClient ((,ref) <$$> qclient))
 applyProposal _convOrSubConvId _groupId (ExternalInitProposal _) =
   -- only record the fact there was an external init proposal, but do not

services/galley/src/Galley/API/MLS/Welcome.hs

@@ -28,7 +28,6 @@ import Data.Id
 import Data.Json.Util
 import Data.Qualified
 import Data.Time
-import Debug.Trace
 import Galley.API.MLS.Enabled
 import Galley.API.MLS.KeyPackage
 import Galley.API.Push
@@ -111,12 +110,7 @@ welcomeRecipients ::
 welcomeRecipients =
   traverse
     ( fmap cidQualifiedClient
-        . ( \x -> do
-              traceM "welcomeRecipients before"
-              res <- derefKeyPackage x
-              traceM "welcomeRecipients after"
-              pure res
-          )
+        . derefKeyPackage
         . gsNewMember
     )
     . welSecrets

services/galley/test/integration/API/MLS.hs

@@ -45,7 +45,6 @@ import Data.Singletons
 import Data.String.Conversions
 import qualified Data.Text as T
 import Data.Time
-import Debug.Trace
 import Federator.MockServer hiding (withTempMockFederator)
 import Imports
 import qualified Network.Wai.Utilities.Error as Wai
@@ -1594,7 +1593,7 @@ testBackendRemoveProposalRecreateClient = do
     void $ createPendingProposalCommit alice1 >>= sendAndConsumeCommitBundle
 
     (_, ref) <- assertOne =<< getClientsFromGroupState alice1 alice
-    traceM ("test: the ref " <> show ref)
+
     liftTest $
       deleteClient (qUnqualified alice) (ciClient alice1) (Just defPassword)
         !!! const 200 === statusCode
@@ -1612,8 +1611,6 @@ testBackendRemoveProposalRecreateClient = do
         wsAssertBackendRemoveProposal alice qcnv ref
 
     consumeMessage1 alice2 proposal
-
-    -- this fails with 404 mls-key-package-ref-not-found
     void $ createPendingProposalCommit alice2 >>= sendAndConsumeCommitBundle
 
     void $ createApplicationMessage alice2 "hello" >>= sendAndConsumeMessage