diff --git a/integration/test/Test/MLS.hs b/integration/test/Test/MLS.hs
index 588714f9a9..8fb9d4c312 100644
--- a/integration/test/Test/MLS.hs
+++ b/integration/test/Test/MLS.hs
@@ -9,14 +9,8 @@ import MLS.Util
 import SetupHelpers
 import Testlib.Prelude
 
-testMixedProtocolUpgrade :: HasCallStack => App ()
-testMixedProtocolUpgrade = ptestMixedProtocolUpgrade ownDomain
-
-testMixedProtocolUpgradeFed :: HasCallStack => App ()
-testMixedProtocolUpgradeFed = ptestMixedProtocolUpgrade otherDomain
-
-ptestMixedProtocolUpgrade :: (HasCallStack, MakesValue domain) => domain -> App ()
-ptestMixedProtocolUpgrade secondDomain = do
+testMixedProtocolUpgrade :: HasCallStack => Domain -> App ()
+testMixedProtocolUpgrade secondDomain = do
   [alice, bob, charlie] <- do
     d <- ownDomain
     d2 <- secondDomain & asString