testsuite/T9379: Use GHC.Conc instead of Control.Concurrent.STM
authorBen Gamari <bgamari.foss@gmail.com>
Tue, 19 Aug 2014 02:40:21 +0000 (21:40 -0500)
committerAustin Seipp <austin@well-typed.com>
Tue, 19 Aug 2014 04:26:19 +0000 (23:26 -0500)
Summary:
`GHC.Conc` provides almost everything we need.

Signed-off-by: Ben Gamari <bgamari.foss@gmail.com>
Test Plan:
    make test TEST=T9379

Reviewers: austin, simonmar

Reviewed By: austin, simonmar

Subscribers: phaskell, simonmar, relrod, ezyang, carter

Differential Revision: https://phabricator.haskell.org/D152

testsuite/tests/concurrent/should_run/T9379.hs

index 49e6d1e..235b2aa 100644 (file)
@@ -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