CPP out the correct test

Author: RyanGlScott

testsuite/src/Stm064.hs

@@ -13,7 +13,7 @@ import           Control.Concurrent.STM
 import           Control.Monad          (unless)
 
 main :: IO ()
-#if __GLASGOW_HASKELL__ >= 706
+#if __GLASGOW_HASKELL__ >= 706 && !defined(GHC_7_6_1)
 main = do
   x <- atomically $ do
          t <- newTVar (1 :: Integer)

testsuite/src/Stm065.hs

@@ -1,20 +1,9 @@
-{-# LANGUAGE CPP #-}
-
-{- NB: This one fails for GHC 7.6.1 in particular due to GHC#7493.
-
-This was fixed in GHC via
- a006ecdfd381fa75ab16ddb66c3a2b247f359eb8
--}
-
 module Stm065 (main) where
 
 import           Control.Concurrent.STM
 import           Control.Monad          (unless)
 
 main :: IO ()
-#if defined(GHC_7_6_1)
-main = putStrLn "Warning: test disabled for GHC 7.6.1"
-#else
 main = do
   x <- atomically $ do
          r <- newTVar []
@@ -24,4 +13,3 @@ main = do
 
   unless (null x) $ do
     fail (show x)
-#endif