Remove unused TinyLog effect

wireapp · Aug 31, 2021 · 751c026 · 751c026
1 parent 6eeff52
commit 751c026
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/services/federator/src/Federator/Remote.hs b/services/federator/src/Federator/Remote.hs
@@ -114,7 +114,6 @@ blessedCiphers =
 mkGrpcClient ::
   Members
     '[ Embed IO,
-       TinyLog,
        Polysemy.Error RemoteError,
        Polysemy.Reader TLSSettings
      ]

diff --git a/services/federator/test/unit/Test/Federator/Remote.hs b/services/federator/test/unit/Test/Federator/Remote.hs
@@ -14,7 +14,6 @@ import qualified Network.Wai.Handler.WarpTLS as WarpTLS
 import Polysemy
 import qualified Polysemy.Error as Polysemy
 import qualified Polysemy.Reader as Polysemy
-import qualified Polysemy.TinyLog as TinyLog
 import Test.Federator.Options (defRunSettings)
 import Test.Tasty
 import Test.Tasty.HUnit
@@ -60,18 +59,17 @@ testValidatesCertificateSuccess =
     [ testCase "when hostname=localhost and certificate-for=localhost" $ do
         bracket (startMockServer certForLocalhost) (\(serverThread, _) -> Async.cancel serverThread) $ \(_, port) -> do
           tlsSettings <- mkTLSSettings settings
-          void . Polysemy.runM . assertNoError @RemoteError . TinyLog.discardLogs . Polysemy.runReader tlsSettings $ mkGrpcClient (SrvTarget "localhost" (fromIntegral port)),
+          void . Polysemy.runM . assertNoError @RemoteError . Polysemy.runReader tlsSettings $ mkGrpcClient (SrvTarget "localhost" (fromIntegral port)),
       testCase "when hostname=localhost. and certificate-for=localhost" $ do
         bracket (startMockServer certForLocalhost) (\(serverThread, _) -> Async.cancel serverThread) $ \(_, port) -> do
           tlsSettings <- mkTLSSettings settings
-          void . Polysemy.runM . assertNoError @RemoteError . TinyLog.discardLogs . Polysemy.runReader tlsSettings $ mkGrpcClient (SrvTarget "localhost." (fromIntegral port)),
+          void . Polysemy.runM . assertNoError @RemoteError . Polysemy.runReader tlsSettings $ mkGrpcClient (SrvTarget "localhost." (fromIntegral port)),
       -- This is a limitation of the TLS library, this test just exists to document that.
       testCase "when hostname=localhost. and certificate-for=localhost." $ do
         bracket (startMockServer certForLocalhostDot) (\(serverThread, _) -> Async.cancel serverThread) $ \(_, port) -> do
           tlsSettings <- mkTLSSettings settings
           eitherClient <-
             Polysemy.runM
-              . TinyLog.discardLogs
               . Polysemy.runError @RemoteError
               . Polysemy.runReader tlsSettings
               $ mkGrpcClient (SrvTarget "localhost." (fromIntegral port))
@@ -90,7 +88,6 @@ testValidatesCertificateWrongHostname =
           eitherClient <-
             Polysemy.runM
               . Polysemy.runError
-              . TinyLog.discardLogs
               . Polysemy.runReader tlsSettings
               $ mkGrpcClient (SrvTarget "localhost." (fromIntegral port))
           case eitherClient of