diff --git a/test/doctests.hs b/test/doctests.hs
index 739963d..dfa08a8 100644
--- a/test/doctests.hs
+++ b/test/doctests.hs
@@ -1,7 +1,11 @@
+{-# LANGUAGE CPP #-}
+
 module Main where
 
 import Build_doctests (deps)
+#if (__GLASGOW_HASKELL__ < 710)
 import Control.Applicative
+#endif
 import Control.Monad
 import Data.List
 import System.Directory