diff --git a/Test/QuickCheck/Parallel.hs b/Test/QuickCheck/Parallel.hs
--- a/Test/QuickCheck/Parallel.hs
+++ b/Test/QuickCheck/Parallel.hs
@@ -31,7 +31,11 @@
 import Test.QuickCheck
 import Test.QuickCheck.Gen  (unGen)
 import Test.QuickCheck.Test (test)
+#if MIN_VERSION_QuickCheck(2,6,0)
+import Test.QuickCheck.Text (withNullTerminal)
+#else
 import Test.QuickCheck.Text (newNullTerminal)
+#endif
 import Test.QuickCheck.State
 
 import Control.Concurrent
@@ -161,7 +165,11 @@
     doesAnyFailureTest v ec'
       = case v of
           (GaveUp _ _ _)          -> noticeFailureTest ec'
+#if MIN_VERSION_QuickCheck(2,6,0)
+          (Failure _ _ _ _ _ _ _ _) -> noticeFailureTest ec'
+#else
           (Failure _ _ _ _ _ _ _) -> noticeFailureTest ec'
+#endif
           _                       -> return ()
 
     testFailure :: ExitCode
@@ -196,7 +204,11 @@
 
 mytests :: Testable prop => Args -> StdGen -> prop -> IO Result
 mytests a rnd p =
+#if MIN_VERSION_QuickCheck(2,6,0)
+  withNullTerminal $ \tm -> do
+#else
   do tm <- newNullTerminal
+#endif
      test MkState{ terminal          = tm
 #if MIN_VERSION_QuickCheck(2,5,0)
                  , maxSuccessTests   = if exhaustive p then 1 else maxSuccess a
diff --git a/pqc.cabal b/pqc.cabal
--- a/pqc.cabal
+++ b/pqc.cabal
@@ -1,5 +1,5 @@
 name:                pqc
-version:             0.7.1.1
+version:             0.7.1.2
 description:         Parallel batch driver for QuickCheck
 synopsis:            Parallel batch driver for QuickCheck
 category:            Testing