diff --git a/libs/wire-api/src/Wire/API/MLS/CommitBundle.hs b/libs/wire-api/src/Wire/API/MLS/CommitBundle.hs
index dfe09f0b88f..67ebd6fd5d2 100644
--- a/libs/wire-api/src/Wire/API/MLS/CommitBundle.hs
+++ b/libs/wire-api/src/Wire/API/MLS/CommitBundle.hs
@@ -14,7 +14,6 @@
--
-- You should have received a copy of the GNU Affero General Public License along
-- with this program. If not, see .
-{-# LANGUAGE RecordWildCards #-}
module Wire.API.MLS.CommitBundle where
diff --git a/services/galley/src/Galley/API/MLS/Message.hs b/services/galley/src/Galley/API/MLS/Message.hs
index e2283ef4c64..e5c6334977b 100644
--- a/services/galley/src/Galley/API/MLS/Message.hs
+++ b/services/galley/src/Galley/API/MLS/Message.hs
@@ -14,7 +14,6 @@
--
-- You should have received a copy of the GNU Affero General Public License along
-- with this program. If not, see .
-{-# LANGUAGE RecordWildCards #-}
module Galley.API.MLS.Message
( postMLSCommitBundle,
@@ -1027,8 +1026,7 @@ executeProposalAction qusr con lconv cm action = do
existingLocalMembers :: Set (Qualified UserId)
existingLocalMembers =
- Set.fromList . map (fmap lmId . qUntagged) . sequenceA $
- fmap convLocalMembers lconv
+ (Set.fromList . map (fmap lmId . qUntagged)) (traverse convLocalMembers lconv)
existingRemoteMembers :: Set (Qualified UserId)
existingRemoteMembers =
diff --git a/services/galley/src/Galley/API/MLS/Propagate.hs b/services/galley/src/Galley/API/MLS/Propagate.hs
index 6af4e1d61b9..8356619baa3 100644
--- a/services/galley/src/Galley/API/MLS/Propagate.hs
+++ b/services/galley/src/Galley/API/MLS/Propagate.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE RecordWildCards #-}
-
-- This file is part of the Wire Server implementation.
--
-- Copyright (C) 2022 Wire Swiss GmbH