Skip to content

Commit

Permalink
Fix CI on 8.10.7
Browse files Browse the repository at this point in the history
  • Loading branch information
msakai authored and googleson78 committed Sep 11, 2023
1 parent 4a08e80 commit 9b1cfd0
Show file tree
Hide file tree
Showing 3 changed files with 9 additions and 9 deletions.
6 changes: 3 additions & 3 deletions src/Data/Interval/Internal.hs
Original file line number Diff line number Diff line change
Expand Up @@ -51,12 +51,12 @@ data Interval r
| RightOpen !r !r
| BothOpen !r !r
deriving
( Eq,
Ord,
( Eq
, Ord
-- ^ Note that this Ord is derived and not semantically meaningful.
-- The primary intended use case is to allow using 'Interval'
-- in maps and sets that require ordering.
Typeable
, Typeable
)

peekInterval :: (Applicative m, Monad m, Ord r) => m Int8 -> m r -> m r -> m (Interval r)
Expand Down
6 changes: 3 additions & 3 deletions src/Data/IntervalMap/Base.hs
Original file line number Diff line number Diff line change
Expand Up @@ -116,12 +116,12 @@ import qualified GHC.Exts as GHCExts
-- even if adjacent intervals are connected and mapped to the same value.
newtype IntervalMap r a = IntervalMap (Map (LB r) (Interval r, a))
deriving
( Eq,
Ord,
( Eq
, Ord
-- ^ Note that this Ord is derived and not semantically meaningful.
-- The primary intended use case is to allow using 'IntervalSet'
-- in maps and sets that require ordering.
Typeable
, Typeable
)

type role IntervalMap nominal representational
Expand Down
6 changes: 3 additions & 3 deletions src/Data/IntervalSet.hs
Original file line number Diff line number Diff line change
Expand Up @@ -85,12 +85,12 @@ import qualified GHC.Exts as GHCExts
-- Any connected intervals are merged together, and empty intervals are ignored.
newtype IntervalSet r = IntervalSet (Map (Extended r) (Interval r))
deriving
( Eq,
Ord,
( Eq
, Ord
-- ^ Note that this Ord is derived and not semantically meaningful.
-- The primary intended use case is to allow using 'IntervalSet'
-- in maps and sets that require ordering.
Typeable
, Typeable
)

type role IntervalSet nominal
Expand Down

0 comments on commit 9b1cfd0

Please sign in to comment.