CPP out the correct test master
authorRyan Scott <ryan.gl.scott@gmail.com>
Tue, 1 Oct 2019 21:24:52 +0000 (17:24 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Tue, 1 Oct 2019 21:24:52 +0000 (17:24 -0400)
testsuite/src/Stm064.hs
testsuite/src/Stm065.hs

index 3e65332..fe93a1d 100644 (file)
@@ -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)
index 5ae06f6..77371b8 100644 (file)
@@ -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