From 6e22f3695d264ecd93354dab8a44fc8186d0c7a9 Mon Sep 17 00:00:00 2001 From: Paolo Capriotti Date: Wed, 21 Sep 2022 11:43:09 +0200 Subject: [PATCH] Lint --- libs/wire-api/src/Wire/API/MLS/CommitBundle.hs | 1 - services/galley/src/Galley/API/MLS/Message.hs | 4 +--- services/galley/src/Galley/API/MLS/Propagate.hs | 2 -- 3 files changed, 1 insertion(+), 6 deletions(-) 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