fix for catching VerNego

kazu-yamamoto · Nov 22, 2024 · 5e47a93 · 5e47a93
1 parent a018fdb
commit 5e47a93
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/Network/QUIC/Closer.hs b/Network/QUIC/Closer.hs
@@ -24,7 +24,6 @@ closure conn ldcc (Right x) = do
     closure' conn ldcc $ ConnectionClose NoError 0 ""
     return x
 closure conn ldcc (Left se)
-    | isAsyncException se = E.throwIO se
     | Just e@(TransportErrorIsSent err desc) <- E.fromException se = do
         closure' conn ldcc $ ConnectionClose err 0 desc
         E.throwIO e
@@ -36,7 +35,7 @@ closure conn ldcc (Left se)
         E.throwIO $ ApplicationProtocolErrorIsSent err desc
     | Just (VerNego vers) <- E.fromException se = do
         E.throwIO $ NextVersion vers
-    | otherwise = E.throwIO se
+    | otherwise = E.throwIO se -- including asynchronous exceptions
 
 closure' :: Connection -> LDCC -> Frame -> IO ()
 closure' conn ldcc frame = do