rethrowing asynchronous exceptions

Network/HTTP2/H2/Receiver.hs

@@ -58,6 +58,7 @@ frameReceiver ctx@Context{..} conf@Config{..} = do
                 loop
 
     sendGoaway se
+        | isAsyncException se = E.throwIO se
         | Just GoAwayIsSent <- E.fromException se = do
             waitCounter0 threadManager
             enqueueControl controlQ $ CFinish GoAwayIsSent

Network/HTTP2/H2/Sender.hs

@@ -38,6 +38,7 @@ data Switch
 
 wrapException :: E.SomeException -> IO ()
 wrapException se
+    | isAsyncException se = E.throwIO se
     | Just GoAwayIsSent <- E.fromException se = return ()
     | Just ConnectionIsClosed <- E.fromException se = return ()
     | Just (e :: HTTP2Error) <- E.fromException se = E.throwIO e

Network/HTTP2/H2/Types.hs

@@ -7,7 +7,11 @@ module Network.HTTP2.H2.Types where
 
 import Control.Concurrent
 import Control.Concurrent.STM
-import Control.Exception (SomeException)
+import Control.Exception (
+    Exception,
+    SomeAsyncException (..),
+    SomeException (..),
+ )
 import qualified Control.Exception as E
 import Data.IORef
 import Data.Typeable
@@ -270,3 +274,9 @@ data Config = Config
     , confPeerSockAddr :: SockAddr
     -- ^ This is copied into 'Aux', if exist, on server.
     }
+
+isAsyncException :: Exception e => e -> Bool
+isAsyncException e =
+    case E.fromException (E.toException e) of
+        Just (SomeAsyncException _) -> True
+        Nothing -> False