Fix Semigroup not in Prelude

haskell · Aug 6, 2024 · aa6ecd0 · aa6ecd0
1 parent 4a6c3da
commit aa6ecd0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/containers/src/Utils/Containers/Internal/EqOrdUtil.hs b/containers/src/Utils/Containers/Internal/EqOrdUtil.hs
@@ -1,8 +1,12 @@
+{-# LANGUAGE CPP #-}
 module Utils.Containers.Internal.EqOrdUtil
   ( EqM(..)
   , OrdM(..)
   ) where
 
+#if !MIN_VERSION_base(4,11,0)
+import Data.Semigroup (Semigroup(..))
+#endif
 import Utils.Containers.Internal.StrictPair
 
 newtype EqM a = EqM { runEqM :: a -> StrictPair Bool a }