Merge pull request #258 from well-typed/edsko/invalidRequestMetadata

Fix `Invalid.requestMetadata` test
well-typed · Nov 16, 2024 · 3e2be47 · 3e2be47
2 parents cbd8fcc + 186d053
commit 3e2be47
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs b/grapesy/test-grapesy/Test/Sanity/BrokenDeployments.hs
@@ -272,6 +272,7 @@ test_invalidRequestMetadata = respondWith response $ \addr -> do
                (Client.ResponseHeaders' HandledSynthesized) <-
       Client.withConnection connParams' (Client.ServerInsecure addr) $ \conn ->
         Client.withRPC conn def (Proxy @Ping) $ \call -> do
+          Client.sendEndOfInput call
           Client.recvInitialResponse call
     case mResp of
       Right headers