Introduce Conservative test mode

We still depend on a fix to `http2`; without it, depending on whether or not
the GC is able to detect an STM deadlock, the tests can hang. See
kazu-yamamoto/http2#104 for details.

.github/workflows/haskell-ci.yml

@@ -8,9 +8,9 @@
 #
 # For more information, see https://github.com/haskell-CI/haskell-ci
 #
-# version: 0.17.20231110
+# version: 0.17.20240109
 #
-# REGENDATA ("0.17.20231110",["github","cabal.project.ci"])
+# REGENDATA ("0.17.20240109",["github","cabal.project.ci"])
 #
 name: Haskell-CI
 on:
@@ -160,6 +160,11 @@ jobs:
           echo "package grapesy" >> cabal.project
           echo "    ghc-options: -Werror=missing-methods" >> cabal.project
           cat >> cabal.project <<EOF
+          source-repository-package
+            type:     git
+            location: http://github.com/edsko/http2
+            tag:      8bd2ac2df4d57697d4dc4a7535ee02784e842425
+
           package grapesy
             tests:       True
             flags:       +build-demo +build-stress-test

cabal.project

@@ -3,3 +3,8 @@ packages: .
 package grapesy
   tests: True
   flags: +build-demo +build-stress-test
+
+source-repository-package
+  type: git
+  location: http://github.com/edsko/http2
+  tag: 8bd2ac2df4d57697d4dc4a7535ee02784e842425

cabal.project.ci

@@ -4,3 +4,8 @@ package grapesy
   tests: True
   flags: +build-demo +build-stress-test
   ghc-options: -Werror
+
+source-repository-package
+  type: git
+  location: http://github.com/edsko/http2
+  tag: 8bd2ac2df4d57697d4dc4a7535ee02784e842425

src/Network/GRPC/Util/HTTP2/Stream.hs

@@ -28,6 +28,7 @@ import Network.HTTP2.Server qualified as Server
 
 import Network.GRPC.Util.HTTP2 (fromHeaderTable)
 import Text.Show.Pretty
+import Network.GRPC.Internal.NestedException
 
 {-------------------------------------------------------------------------------
   Streams
@@ -170,7 +171,10 @@ clientOutputStream writeChunk' flush' = do
 
 data StreamException = StreamException SomeException CallStack
   deriving stock (Show)
-  deriving anyclass (Exception)
+  deriving Exception via ExceptionWrapper StreamException
+
+instance HasNestedException StreamException where
+  getNestedException (StreamException e _) = e
 
 -- | Client disconnected unexpectedly
 data ClientDisconnected = ClientDisconnected SomeException