Skip to content

Commit

Permalink
Remove unused TinyLog effect
Browse files Browse the repository at this point in the history
  • Loading branch information
pcapriotti committed Aug 2, 2021
1 parent 82561d8 commit 098ef3d
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 6 deletions.
1 change: 0 additions & 1 deletion services/federator/src/Federator/Remote.hs
Original file line number Diff line number Diff line change
Expand Up @@ -94,7 +94,6 @@ callInward client request =
mkGrpcClient ::
Members
'[ Embed IO,
TinyLog,
Polysemy.Error RemoteError,
Polysemy.Reader TLSSettings
]
Expand Down
5 changes: 0 additions & 5 deletions services/federator/test/unit/Test/Federator/Remote.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -58,7 +57,6 @@ testValidatesCertificateSuccess =
void
. runM
. assertNoError @RemoteError
. TinyLog.discardLogs
. Polysemy.runReader tlsSettings
$ mkGrpcClient (SrvTarget "localhost" (fromIntegral port)),
testCase "when hostname=localhost. and certificate-for=localhost" $ do
Expand All @@ -71,7 +69,6 @@ testValidatesCertificateSuccess =
}
void
. runM
. TinyLog.discardLogs
. assertNoError @RemoteError
. Polysemy.runReader tlsSettings
$ mkGrpcClient (SrvTarget "localhost." (fromIntegral port)),
Expand All @@ -86,7 +83,6 @@ testValidatesCertificateSuccess =
}
eitherClient <-
Polysemy.runM
. TinyLog.discardLogs
. Polysemy.runError @RemoteError
. Polysemy.runReader tlsSettings
$ mkGrpcClient (SrvTarget "localhost." (fromIntegral port))
Expand All @@ -110,7 +106,6 @@ testValidatesCertificateWrongHostname =
eitherClient <-
Polysemy.runM
. Polysemy.runError
. TinyLog.discardLogs
. Polysemy.runReader tlsSettings
$ mkGrpcClient (SrvTarget "localhost." (fromIntegral port))
case eitherClient of
Expand Down

0 comments on commit 098ef3d

Please sign in to comment.