Pacify warnings: define mappend canonically as (<>)

Gabriella439 · Nov 1, 2023 · 34395e9 · 34395e9
1 parent 88aefff
commit 34395e9
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/src/Control/Foldl.hs b/src/Control/Foldl.hs
@@ -300,7 +300,7 @@ instance Monoid b => Monoid (Fold a b) where
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Fold a b) where
@@ -434,7 +434,7 @@ instance (Monoid b, Monad m) => Monoid (FoldM m a b) where
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance (Monad m, Num b) => Num (FoldM m a b) where

diff --git a/src/Control/Foldl/NonEmpty.hs b/src/Control/Foldl/NonEmpty.hs
@@ -54,7 +54,7 @@ instance Monoid b => Monoid (Fold1 a b) where
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Fold1 a b) where

diff --git a/src/Control/Scanl.hs b/src/Control/Scanl.hs
@@ -149,7 +149,7 @@ instance Monoid b => Monoid (Scan a b) where
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Scan a b) where
@@ -299,7 +299,7 @@ instance (Monad m, Monoid b) => Monoid (ScanM m a b) where
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance (Monad m, Num b) => Num (ScanM m a b) where