diff --git a/src/Network/GRPC/Client/Session.hs b/src/Network/GRPC/Client/Session.hs index cacebb2d..5f57da0b 100644 --- a/src/Network/GRPC/Client/Session.hs +++ b/src/Network/GRPC/Client/Session.hs @@ -99,6 +99,9 @@ instance SupportsClientRpc rpc => InitiateSession (ClientSession rpc) where case verifyAllIf connVerifyHeaders responseHeaders of Left err -> throwIO $ CallSetupInvalidResponseHeaders err Right hdrs -> do + -- TODO: + -- If we omit this call to 'updateConnectionMeta', no tests fail. + Connection.updateConnectionMeta conn responseHeaders cIn <- getCompression $ requiredResponseCompression hdrs return $ FlowStartRegular $ InboundHeaders { inbHeaders = responseHeaders