Commit 88b1f99d authored by Ben Gamari's avatar Ben Gamari Committed by Austin Seipp
Browse files

testsuite/T9379: Use GHC.Conc instead of Control.Concurrent.STM

`GHC.Conc` provides almost everything we need.
Signed-off-by: default avatarBen Gamari <>

Test Plan:
    make test TEST=T9379

Reviewers: austin, simonmar

Reviewed By: austin, simonmar

Subscribers: phaskell, simonmar, relrod, ezyang, carter

Differential Revision:
parent 5d5655e9
import Control.Exception
import Control.Concurrent
import Control.Concurrent.STM
import GHC.Conc
import Foreign.StablePtr
main :: IO ()
......@@ -10,6 +10,8 @@ main = do
t <- mask_ $ forkIO (blockSTM tv)
killThread t
check b = if b then return () else retry
blockSTM :: TVar Bool -> IO ()
blockSTM tv = do
atomically $ do
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment