Fix warnings on noncanonical mappend

msakai · Sep 9, 2023 · cbd5617 · cbd5617
1 parent 4115223
commit cbd5617
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Data/IntervalMap/Base.hs b/src/Data/IntervalMap/Base.hs
@@ -160,7 +160,7 @@ instance (Hashable k, Hashable a) => Hashable (IntervalMap k a) where
 
 instance Ord k => Monoid (IntervalMap k a) where
   mempty = empty
-  mappend = union
+  mappend = (<>)
   mconcat = unions
 
 instance Ord k => Semigroup.Semigroup (IntervalMap k a) where

diff --git a/src/Data/IntervalSet.hs b/src/Data/IntervalSet.hs
@@ -163,7 +163,7 @@ instance (Ord r) => BoundedLattice (IntervalSet r)
 
 instance Ord r => Monoid (IntervalSet r) where
   mempty = empty
-  mappend = union
+  mappend = (<>)
   mconcat = unions
 
 instance (Ord r) => Semigroup.Semigroup (IntervalSet r) where