Fix a warning with QuickCheck-2.7.*

hspec · Apr 5, 2014 · 82244bb · 82244bb
1 parent c179f14
commit 82244bb
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Test/QuickCheck/IO.hs b/src/Test/QuickCheck/IO.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
+{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 module Test.QuickCheck.IO where
 
@@ -11,5 +11,9 @@ instance Testable Assertion where
   exhaustive _ = True
 
 propertyIO :: Assertion -> Property
+#if MIN_VERSION_QuickCheck(2,7,0)
+propertyIO action = ioProperty $ do
+#else
 propertyIO action = morallyDubiousIOProperty $ do
+#endif
   (action >> return succeeded) `E.catch` \(HUnitFailure err) -> return failed {reason = err}