fix: import Semigroup on older versions of base

414owen · Nov 12, 2023 · e333d33 · e333d33
1 parent e922d44
commit e333d33
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Text/Pandoc/Builder/Monadic/Internal.hs b/src/Text/Pandoc/Builder/Monadic/Internal.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE FlexibleInstances #-}
 
 {-|
@@ -21,6 +22,9 @@ import Control.Monad.Writer.Strict (Writer, execWriter, tell)
 import Data.DList                  (DList)
 import Data.Foldable               (traverse_)
 import Text.Pandoc.Builder         (Inline)
+#if __GLASGOW_HASKELL__ < 804
+import Data.Semigroup
+#endif
 
 import qualified Text.Pandoc.Builder         as B
 import qualified Data.DList                  as DList