Skip to content

Commit 8e8032c

Browse files
committed
Fix build for GHC < 8.4
1 parent 6cc042b commit 8e8032c

File tree

7 files changed

+8
-2
lines changed

7 files changed

+8
-2
lines changed

src/Options/Applicative/Builder.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -108,8 +108,8 @@ module Options.Applicative.Builder (
108108
) where
109109

110110
import Control.Applicative
111-
#if __GLASGOW_HASKELL__ <= 802
112-
import Data.Semigroup hiding (option)
111+
#if __GLASGOW_HASKELL__ < 804
112+
import Data.Semigroup hiding (Option, option)
113113
#endif
114114
import Data.String (fromString, IsString)
115115

tests/Examples/ParserGroup/AllGrouped.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33

44
module Examples.ParserGroup.AllGrouped (opts) where
55

6+
import Data.Semigroup ((<>))
67
import Options.Applicative
78

89
-- Tests the help page when every option belongs to some group i.e. there are

tests/Examples/ParserGroup/Basic.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33

44
module Examples.ParserGroup.Basic (opts) where
55

6+
import Data.Semigroup ((<>))
67
import Options.Applicative
78

89
data LogGroup = LogGroup

tests/Examples/ParserGroup/CommandGroups.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44

55
module Examples.ParserGroup.CommandGroups (opts) where
66

7+
import Data.Semigroup ((<>))
78
import Options.Applicative
89

910
data LogGroup = LogGroup

tests/Examples/ParserGroup/DuplicateCommandGroups.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,7 @@
44

55
module Examples.ParserGroup.DuplicateCommandGroups (opts) where
66

7+
import Data.Semigroup ((<>))
78
import Options.Applicative
89

910
-- This test demonstrates that duplicate + consecutive groups are merged,

tests/Examples/ParserGroup/Duplicates.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33

44
module Examples.ParserGroup.Duplicates (opts) where
55

6+
import Data.Semigroup ((<>))
67
import Options.Applicative
78

89
-- NOTE: This is the same structure as ParserGroup.Basic __except__

tests/Examples/ParserGroup/Nested.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@
33

44
module Examples.ParserGroup.Nested (opts) where
55

6+
import Data.Semigroup ((<>))
67
import Options.Applicative
78

89
-- Nested groups. Demonstrates that group can nest.

0 commit comments

Comments
 (0)