Andrea Vezzosi pushed to branch wip/romes/async-rpc at Glasgow Haskell Compiler / GHC Commits: fc2470dd by Andrea Vezzosi at 2026-10-27T13:10:42+01:00 fixup! interp: cancel requests if async exceptions while waiting for reply. - - - - - 1 changed file: - libraries/ghci/GHCi/Server.hs Changes: ===================================== libraries/ghci/GHCi/Server.hs ===================================== @@ -81,10 +81,12 @@ servWithCustom verbose hook pipe restore customHandler = do CustomMessage tag payload -> handleCustom tag payload %>>= writeReply wr Shutdown -> writeIORef doneRef True >> reply () %>>= writeReply wr - RunTH ii st q ty loc -> spawnFinally mngr (runWriteReply wr) + RunTH ii st q ty loc -> restore $ + spawnFinally mngr (runWriteReply wr) (wrapRunTH ii (runTH pipe ii st q ty loc)) (setCancel . void . forkIO . killThread) - RunModFinalizers ii st qs -> spawnFinally mngr (runWriteReply wr) + RunModFinalizers ii st qs -> restore $ + spawnFinally mngr (runWriteReply wr) (wrapRunTH ii (runModFinalizerRefs pipe ii st qs)) (setCancel . void . forkIO . killThread) _other -> run msg >>= reply %>>= writeReply wr View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fc2470dd36448ef3e8a12683fe9e6f38... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/fc2470dd36448ef3e8a12683fe9e6f38... 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