git.iko.soy/patch
on develop help sign in
Fix Semigroup CPP
c97c126John Ericson
src/Data/Patch.hs+2−2
compare with develop
unifiedsplit
@@ -18,8 +18,8 @@ import Data.Functor.Const (Const (..))
18import Data.Functor.Identity
18import Data.Functor.Identity
19import Data.Map.Monoidal (MonoidalMap)
19import Data.Map.Monoidal (MonoidalMap)
20import Data.Proxy
20import Data.Proxy
21−#if !MIN_VERSION_base(4,9,0)
21+#if !MIN_VERSION_base(4,10,0)
22−import Data.Semigroup (Semigroup (..), (<>))
22+import Data.Semigroup (Semigroup (..))
23#endif
23#endif
24import GHC.Generics
24import GHC.Generics
25
25
src/Data/Patch/MapWithMove.hs+3
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
1{-# LANGUAGE DeriveTraversable #-}
2{-# LANGUAGE DeriveTraversable #-}
2{-# LANGUAGE FlexibleContexts #-}
3{-# LANGUAGE FlexibleContexts #-}
3{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE FlexibleInstances #-}
@@ -24,7 +25,9 @@ import Data.List
24import Data.Map (Map)
25import Data.Map (Map)
25import qualified Data.Map as Map
26import qualified Data.Map as Map
26import Data.Maybe
27import Data.Maybe
28+#if !MIN_VERSION_base(4,10,0)
27import Data.Semigroup (Semigroup (..), (<>))
29import Data.Semigroup (Semigroup (..), (<>))
30+#endif
28import qualified Data.Set as Set
31import qualified Data.Set as Set
29import Data.These (These(..))
32import Data.These (These(..))
30import Data.Tuple
33import Data.Tuple
src/Data/Patch/MapWithPatchingMove.hs+2−2
@@ -24,8 +24,8 @@ import Data.Map (Map)
24import qualified Data.Map as Map
24import qualified Data.Map as Map
25import Data.Maybe
25import Data.Maybe
26--import Data.Proxy
26--import Data.Proxy
27−#if !MIN_VERSION_base(4,9,0)
27+#if !MIN_VERSION_base(4,10,0)
28−import Data.Semigroup (Semigroup (..), (<>))
28+import Data.Semigroup (Semigroup (..))
29#endif
29#endif
30import Data.Monoid.DecidablyEmpty
30import Data.Monoid.DecidablyEmpty
31import qualified Data.Set as Set
31import qualified Data.Set as Set