diff --git a/jobqueue.cabal b/jobqueue.cabal
--- a/jobqueue.cabal
+++ b/jobqueue.cabal
@@ -1,5 +1,5 @@
 Name:           jobqueue
-Version:        0.1.5
+Version:        0.1.6
 Synopsis:       A job queue library
 License:        MIT
 License-File:   LICENSE
@@ -74,7 +74,7 @@
                  , bytestring
                  , network >= 2.3.2
                  , directory
-                 , QuickCheck == 2.5.1.1
+                 , QuickCheck < 3
                  , hspec
                  , async
                  , jobqueue
diff --git a/src/Network/JobQueue/Types.hs b/src/Network/JobQueue/Types.hs
--- a/src/Network/JobQueue/Types.hs
+++ b/src/Network/JobQueue/Types.hs
@@ -92,7 +92,7 @@
 -------------------------------- ActionM
 
 newtype (Env e, Unit a) => JobM e a b = JobM { runS :: StateT (JobActionState e a) IO b }
-  deriving (Monad, MonadIO, Functor, MonadState (JobActionState e a))
+  deriving (Monad, MonadIO, Functor, Applicative, MonadState (JobActionState e a))
 
 data ActionEnv e a = ActionEnv
   { getJobEnv :: e