Fix Data.Semigroup imports

Author: tarleb

app/Main.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP               #-}
 {-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-|
@@ -19,6 +20,10 @@ import Data.ByteString.Lazy (interact)
 import Options.Applicative
 import Text.Pandoc.AST.Migrator (ASTVersion (..), migrateJSON)
 
+#if !MIN_VERSION_base(4,11,0)
+import Data.Semigroup (Semigroup(..))
+#endif
+
 -- | Migration parameters
 data Migration = Migration
   { initialVersion :: ASTVersion

src/Text/Pandoc/AST/Migrator.hs

@@ -7,7 +7,7 @@ Maintainer  : Albert Krewinkel <albert@zeitkraut.de>
 Stability   : alpha
 Portability : portable
 
-Migrate from or to older AST versions.
+Migrate from or to older API versions.
 -}
 module Text.Pandoc.AST.Migrator
   ( ASTVersion (..)
@@ -27,6 +27,7 @@ import Text.Pandoc.AST.V1_21.Down (migrateDownFromV1_21)
 import Text.Pandoc.AST.V1_21.Up (migrateUpToV1_22)
 import Text.Pandoc.AST.V1_22.Down (migrateDownFromV1_22)
 
+-- | Supported pandoc API versions.
 data ASTVersion
   = V1_20  -- ^ Version 1.20
   | V1_21  -- ^ Version 1.21

src/Text/Pandoc/AST/V1_21/Up.hs

@@ -20,10 +20,6 @@ import Text.Pandoc.AST.V1_21.Definition
 import qualified Text.Pandoc.AST.V1_22.Definition as V1_22
 import qualified Data.Map as M
 
-#if !MIN_VERSION_base(4,11,0)
-import Data.Semigroup (Semigroup(..))
-#endif
-
 migrateDown :: Pandoc -> V1_22.Pandoc
 migrateDown = migrateUpToV1_22
 

src/Text/Pandoc/AST/V1_22/Down.hs

@@ -20,10 +20,6 @@ import Text.Pandoc.AST.V1_22.Definition
 import qualified Text.Pandoc.AST.V1_21.Definition as V1_21
 import qualified Data.Map as M
 
-#if !MIN_VERSION_base(4,11,0)
-import Data.Semigroup (Semigroup(..))
-#endif
-
 migrateDown :: Pandoc -> V1_21.Pandoc
 migrateDown = migrateDownFromV1_22