Fix missed reference to ThreadKilled (from kazu-yamamoto#79)

edsko · Jul 25, 2023 · 9e7713b · 9e7713b
1 parent 5b1a0f2
commit 9e7713b
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/Network/HTTP2/Server/Worker.hs b/Network/HTTP2/Server/Worker.hs
@@ -9,7 +9,6 @@ module Network.HTTP2.Server.Worker (
   , fromContext
   ) where
 
-import Control.Exception (AsyncException(..))
 import Data.IORef
 import qualified Network.HTTP.Types as H
 import qualified System.TimeManager as T
@@ -170,7 +169,7 @@ worker wc@WorkerConf{..} mgr server = do
             Right () -> return True
             Left e@(SomeException _)
               -- killed by the local worker manager
-              | Just ThreadKilled    <- E.fromException e -> return False
+              | Just KilledByHttp2ThreadPoolManager{} <- E.fromException e -> return False
               -- killed by the local timeout manager
               | Just T.TimeoutThread <- E.fromException e -> do
                   cleanup sinfo