diff options
| -rw-r--r-- | testsuite/tests/concurrent/should_run/T9379.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/testsuite/tests/concurrent/should_run/T9379.hs b/testsuite/tests/concurrent/should_run/T9379.hs index 235b2aa58e..49e6d1eaed 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 GHC.Conc +import Control.Concurrent.STM import Foreign.StablePtr main :: IO () @@ -10,8 +10,6 @@ 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 |