| 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 | |
| + |