remove outdated CPP

diagrams · Jul 10, 2023 · 5221844 · 5221844
1 parent 48d796d
commit 5221844
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 23 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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