diff --git a/Test/QuickCheck.hs b/Test/QuickCheck.hs | |
index 1f8b3b9..27138ab 100644 | |
--- a/Test/QuickCheck.hs | |
+++ b/Test/QuickCheck.hs | |
@@ -75 +75,2 @@ import Data.List( group, sort, intersperse ) | |
-import Control.Monad( liftM2, liftM3, liftM4 ) | |
+import Control.Applicative | |
+import Control.Monad( liftM2, liftM3, liftM4, ap ) | |
@@ -115,0 +117,4 @@ instance Functor Gen where | |
+instance Applicative Gen where | |
+ pure = return | |
+ (<*>) = ap -- defined in Control.Monad | |
+ |