diff --git a/testsuite/tests/concurrent/should_run/T9379.hs b/testsuite/tests/concurrent/should_run/T9379.hs index 235b2aa58e27262bff785f46538d9f8a4b595a6c..49e6d1eaedfe156ebb0f3b069847f3f05b41dabc 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