Skip to content

Commit 80b104c

Browse files
committed
Use the preprocessor to only import Semigroup when we need to
1 parent 4fccc90 commit 80b104c

3 files changed

Lines changed: 6 additions & 1 deletion

File tree

optparse-applicative.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -156,5 +156,5 @@ test-suite tests
156156
, optparse-applicative
157157
, QuickCheck >= 2.8 && < 2.17
158158

159-
if !impl(ghc >= 8)
159+
if impl(ghc < 8)
160160
build-depends: semigroups

src/Options/Applicative/Builder/Internal.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
{-# LANGUAGE CPP #-}
12
module Options.Applicative.Builder.Internal (
23
-- * Internals
34
Mod(..),
@@ -27,7 +28,9 @@ module Options.Applicative.Builder.Internal (
2728
import Control.Applicative
2829
import Control.Monad (mplus)
2930
import Data.List.NonEmpty (NonEmpty)
31+
#if __GLASGOW_HASKELL__ < 804
3032
import Data.Semigroup hiding (Option)
33+
#endif
3134
import Prelude
3235

3336
import Options.Applicative.Common

src/Options/Applicative/Types.hs

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,9 @@ import Control.Monad.Trans.Class (lift)
5757
import Control.Monad.Trans.Reader (ReaderT, ask)
5858
import qualified Control.Monad.Fail as Fail
5959
import Data.List.NonEmpty (NonEmpty)
60+
#if __GLASGOW_HASKELL__ < 804
6061
import Data.Semigroup hiding (Option)
62+
#endif
6163
import Prelude
6264

6365
import System.Exit (ExitCode(..))

0 commit comments

Comments
 (0)