Remove CPP

Author: treeowl

tests/seq-properties.hs

@@ -17,9 +17,7 @@ import qualified Prelude
 import qualified Data.List
 import Test.QuickCheck hiding ((><))
 import Test.QuickCheck.Poly
-#ifdef SLOW_TESTS
 import Test.QuickCheck.Function
-#endif
 import Test.Framework
 import Test.Framework.Providers.QuickCheck2
 
@@ -96,11 +94,9 @@ main = defaultMain
        , testProperty "zipWith3" prop_zipWith3
        , testProperty "zip4" prop_zip4
        , testProperty "zipWith4" prop_zipWith4
-#ifdef SLOW_TESTS
        , testProperty "<*>" prop_ap
        , testProperty "*>" prop_then
        , testProperty ">>=" prop_bind
-#endif
        ]
 
 ------------------------------------------------------------------------
@@ -598,23 +594,19 @@ prop_zipWith4 xs ys zs ts =
 
 -- Applicative operations
 
-#ifdef SLOW_TESTS
 prop_ap :: Seq A -> Seq B -> Bool
 prop_ap xs ys =
     toList' ((,) <$> xs <*> ys) ~= ( (,) <$> toList xs <*> toList ys )
 
 prop_then :: Seq A -> Seq B -> Bool
 prop_then xs ys =
     toList' (xs *> ys) ~= (toList xs *> toList ys)
-#endif
 
 -- Monad operations
 
-#ifdef SLOW_TESTS
 prop_bind :: Seq A -> Fun A (Seq B) -> Bool
 prop_bind xs (Fun _ f) =
     toList' (xs >>= f) ~= (toList xs >>= toList . f)
-#endif
 
 -- Simple test monad