[commit: ghc] ghc-7.8: testsuite/T9379: Use GHC.Conc instead of Control.Concurrent.STM (be8556f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-7.8
Link       : http://ghc.haskell.org/trac/ghc/changeset/be8556ff4ce8039a6cad59db9fe37ac971d6a31e/ghc

>---------------------------------------------------------------

commit be8556ff4ce8039a6cad59db9fe37ac971d6a31e
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Tue Aug 12 21:51:57 2014 -0400

    testsuite/T9379: Use GHC.Conc instead of Control.Concurrent.STM
    
    Summary:
    `GHC.Conc` provides almost everything we need.
    
    Signed-off-by: Ben Gamari <bgamari.foss at gmail.com>
    
    Test Plan:
        make test TEST=T9379
    
    Reviewers: austin
    
    Subscribers: simonmar, relrod, ezyang, carter
    
    Differential Revision: https://phabricator.haskell.org/D152
    
    GHC Trac Issues:


>---------------------------------------------------------------

be8556ff4ce8039a6cad59db9fe37ac971d6a31e
 testsuite/tests/concurrent/should_run/T9379.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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