Fix Semigroup CPP

Author: Ericson2314

src/Data/Patch.hs

@@ -18,8 +18,8 @@ import Data.Functor.Const (Const (..))
 import Data.Functor.Identity
 import Data.Map.Monoidal (MonoidalMap)
 import Data.Proxy
-#if !MIN_VERSION_base(4,9,0)
-import Data.Semigroup (Semigroup (..), (<>))
+#if !MIN_VERSION_base(4,10,0)
+import Data.Semigroup (Semigroup (..))
 #endif
 import GHC.Generics
 

src/Data/Patch/MapWithMove.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveTraversable #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE FlexibleInstances #-}
@@ -24,7 +25,9 @@ import Data.List
 import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Maybe
+#if !MIN_VERSION_base(4,10,0)
 import Data.Semigroup (Semigroup (..), (<>))
+#endif
 import qualified Data.Set as Set
 import Data.These (These(..))
 import Data.Tuple

src/Data/Patch/MapWithPatchingMove.hs

@@ -24,8 +24,8 @@ import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Maybe
 --import Data.Proxy
-#if !MIN_VERSION_base(4,9,0)
-import Data.Semigroup (Semigroup (..), (<>))
+#if !MIN_VERSION_base(4,10,0)
+import Data.Semigroup (Semigroup (..))
 #endif
 import Data.Monoid.DecidablyEmpty
 import qualified Data.Set as Set