quickcheck-io 0.1.0 → 0.1.1

raw patch · 2 files changed

+6/−2 lines, 2 files

Files

• quickcheck-io.cabal +1/−1
• src/Test/QuickCheck/IO.hs +5/−1

@@ -1,5 +1,5 @@ name:             quickcheck-io-version:          0.1.0+version:          0.1.1 synopsis:         Use HUnit assertions as QuickCheck properties description:      This package provides an orphan instance that allows you to                   use HUnit assertions as QuickCheck properties.

@@ -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 @@   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}