diff --git a/src/Diagrams/Anchors.hs b/src/Diagrams/Anchors.hs
index 03c867d..681136a 100644
--- a/src/Diagrams/Anchors.hs
+++ b/src/Diagrams/Anchors.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP                       #-}
 {-# LANGUAGE DefaultSignatures         #-}
 {-# LANGUAGE TemplateHaskell           #-}
 {-# LANGUAGE TypeFamilies              #-}
@@ -59,9 +58,6 @@ import qualified Data.Map         as Map
 import           Data.Maybe       (fromJust, fromMaybe)
 import qualified Data.Set         as Set
 import           Data.Typeable    (Typeable)
-#if !MIN_VERSION_base(4,11,0)
-import           Data.Semigroup
-#endif
 
 import           Linear.Vector
 import           Linear.V2
diff --git a/src/Diagrams/Lens.hs b/src/Diagrams/Lens.hs
index 84b6446..80f06b6 100644
--- a/src/Diagrams/Lens.hs
+++ b/src/Diagrams/Lens.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP                   #-}
 {-# LANGUAGE ConstraintKinds       #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE FlexibleInstances     #-}
@@ -35,10 +34,6 @@ module Diagrams.Lens
   , _lineSegments
   ) where
 
-#if __GLASGOW_HASKELL__ < 710
-import           Control.Applicative
-import           Data.Foldable
-#endif
 import           Diagrams.BoundingBox
 import           Diagrams.Prelude
 
diff --git a/src/Diagrams/TwoD/Layout/Tree.hs b/src/Diagrams/TwoD/Layout/Tree.hs
index f77fc4f..7761962 100644
--- a/src/Diagrams/TwoD/Layout/Tree.hs
+++ b/src/Diagrams/TwoD/Layout/Tree.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP                       #-}
 {-# LANGUAGE DeriveFoldable            #-}
 {-# LANGUAGE DeriveFunctor             #-}
 {-# LANGUAGE DeriveTraversable         #-}
@@ -171,14 +170,6 @@ import           Diagrams
 import           Linear              ((*^))
 import           Linear.Affine
 
-#if !MIN_VERSION_base(4,11,0)
-import           Data.Semigroup
-#endif
-
-#if __GLASGOW_HASKELL__ < 710
-import           Control.Applicative
-#endif
-
 ------------------------------------------------------------
 --  Binary trees
 ------------------------------------------------------------
diff --git a/src/Diagrams/TwoD/Path/IteratedSubset.hs b/src/Diagrams/TwoD/Path/IteratedSubset.hs
index 1af1abb..a70dfa1 100644
--- a/src/Diagrams/TwoD/Path/IteratedSubset.hs
+++ b/src/Diagrams/TwoD/Path/IteratedSubset.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP                   #-}
 {-# LANGUAGE ExplicitForAll        #-}
 {-# LANGUAGE FlexibleContexts      #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
@@ -535,10 +534,6 @@ data IterTrailConfig n = ITC { seed :: Trail' Line V2 n -- ^ The seed trail
 --   code and modify it to suit.
 randITC ::
   (MonadRandom m,
-#if MIN_VERSION_base(4,9,0)
-#else
-   Applicative m,
-#endif
    Ord n, Floating n, Random n) =>
            m (IterTrailConfig n)
 randITC = do