Rodrigo Mesquita pushed to branch wip/romes/27514 at Glasgow Haskell Compiler / GHC Commits: 68c0ac0b by Rodrigo Mesquita at 2026-08-13T16:40:54+01:00 more fixes - - - - - 1 changed file: - compiler/GHC/Driver/Downsweep.hs Changes: ===================================== compiler/GHC/Driver/Downsweep.hs ===================================== @@ -62,7 +62,7 @@ import GHC.Data.OsPath ( OsPath, unsafeEncodeUtf ) import GHC.Data.StringBuffer import GHC.Data.Graph.Directed.Reachability -import GHC.Utils.Exception ( throwIO, SomeAsyncException ) +import GHC.Utils.Exception ( throwIO, SomeAsyncException, AsyncException (..) ) import GHC.Utils.Outputable import GHC.Utils.Panic import GHC.Utils.Misc @@ -1786,7 +1786,12 @@ parDfsBuild base_map roots key expand = ReaderT $ \ds_env -> do worklist <- newTQueueIO coord_tid <- forkIO $ coordinator ds_env exc_var visited_var worklist pending - `MC.catch` \(e::MC.SomeException) -> atomically (modifyTVar' exc_var (<|> Just e)) + `MC.catch` \case + (e::MC.SomeException) + -- exit cleanly when killed + | Just ThreadKilled <- fromException e -> pure () + -- otherwise signal exc_var for the main thread to throw it + | otherwise -> atomically (modifyTVar' exc_var (<|> Just e)) mapM_ (atomically . writeTQueue worklist) roots mb_exc <- atomically $ do readTVar exc_var >>= \case @@ -1829,6 +1834,7 @@ parDfsBuild base_map roots key expand = ReaderT $ \ds_env -> do forkIO $ worker ds_env{ds_make_env = make_env} exc_var visvar worklist pendvar k node + `MC.catch` \(e::MC.SomeException) -> atomically (modifyTVar' exc_var (<|> Just e)) return () worker ds_env@DownsweepEnv{..} exc_var visvar worklist pendvar k node = View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/68c0ac0b6ef85c8e5b0628248a70b092... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/68c0ac0b6ef85c8e5b0628248a70b092... You're receiving this email because of your account on gitlab.haskell.org. Manage all notifications: https://gitlab.haskell.org/-/profile/notifications | Help: https://gitlab.haskell.org/help