diff options
| -rw-r--r-- | testsuite/tests/concurrent/should_run/T9379.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/concurrent/should_run/T9379.hs b/testsuite/tests/concurrent/should_run/T9379.hs index 49e6d1eaed..235b2aa58e 100644 --- a/testsuite/tests/concurrent/should_run/T9379.hs +++ b/testsuite/tests/concurrent/should_run/T9379.hs @@ -1,6 +1,6 @@ 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 |