From e341213d3da25ad53ffd5330c0fd67c1830996ef Mon Sep 17 00:00:00 2001
From: Edsko de Vries <edsko@well-typed.com>
Date: Thu, 25 Jul 2024 14:17:32 +0200
Subject: [PATCH] Fix regression

---
 src/Network/GRPC/Client/Session.hs | 3 +++
 1 file changed, 3 insertions(+)

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: <https://github.com/well-typed/grapesy/issues/203>
+              -- If we omit this call to 'updateConnectionMeta', no tests fail.
+              Connection.updateConnectionMeta conn responseHeaders
               cIn <- getCompression $ requiredResponseCompression hdrs
               return $ FlowStartRegular $ InboundHeaders {
                   inbHeaders     = responseHeaders