From 10a7c139e5fc72641f629fafbccaf5cd77cdf966 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 6 Jul 2015 11:19:30 +0200
Subject: [PATCH] Revert "testsuite/T9379: Use GHC.Conc instead of
 Control.Concurrent.STM"

This reverts commit be8556ff4ce8039a6cad59db9fe37ac971d6a31e which was
accidentally pushed.
---
 testsuite/tests/concurrent/should_run/T9379.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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