Lint

wireapp · Apr 18, 2024 · ec3377e · ec3377e
1 parent d670a4b
commit ec3377e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/libs/polysemy-wire-zoo/default.nix b/libs/polysemy-wire-zoo/default.nix
@@ -8,6 +8,7 @@
 , bytestring
 , cassandra-util
 , containers
+, crypton
 , gitignoreSource
 , HsOpenSSL
 , hspec
@@ -36,6 +37,7 @@ mkDerivation {
     base
     bytestring
     cassandra-util
+    crypton
     HsOpenSSL
     hspec
     imports

diff --git a/libs/wire-api/src/Wire/API/MLS/Keys.hs b/libs/wire-api/src/Wire/API/MLS/Keys.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-
 -- This file is part of the Wire Server implementation.
 --
 -- Copyright (C) 2022 Wire Swiss GmbH <[email protected]>

diff --git a/services/galley/src/Galley/API/MLS.hs b/services/galley/src/Galley/API/MLS.hs
@@ -44,5 +44,4 @@ getMLSPublicKeys ::
   Local UserId ->
   Sem r (MLSKeysByPurpose MLSPublicKeys)
 getMLSPublicKeys _ = do
-  keys <- getMLSPrivateKeys
-  pure $ fmap mlsKeysToPublic keys
+  fmap mlsKeysToPublic <$> getMLSPrivateKeys