Fix warnings revealed by v0.14.1 PS release (#135)

* Fix warnings revealed by v0.14.1 PS release

* Update changelog

Author: JordanMartinez

CHANGELOG.md

@@ -11,6 +11,7 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Fix warnings revealed by v0.14.1 PS release (#135 by @JordanMartinez)
 
 ## [v5.0.0](https://github.com/purescript/purescript-foldable-traversable/releases/tag/v5.0.0) - 2021-02-26
 

src/Data/Foldable.purs

@@ -140,7 +140,7 @@ instance foldableMaybe :: Foldable Maybe where
   foldr f z (Just x) = x `f` z
   foldl _ z Nothing  = z
   foldl f z (Just x) = z `f` x
-  foldMap f Nothing  = mempty
+  foldMap _ Nothing  = mempty
   foldMap f (Just x) = f x
 
 instance foldableFirst :: Foldable First where
@@ -183,7 +183,7 @@ instance foldableEither :: Foldable (Either a) where
   foldr f z (Right x) = f x z
   foldl _ z (Left _)  = z
   foldl f z (Right x) = f z x
-  foldMap f (Left _)  = mempty
+  foldMap _ (Left _)  = mempty
   foldMap f (Right x) = f x
 
 instance foldableTuple :: Foldable (Tuple a) where

src/Data/FoldableWithIndex.purs

@@ -166,7 +166,7 @@ instance foldableWithIndexEither :: FoldableWithIndex Unit (Either a) where
   foldrWithIndex f z (Right x) = f unit x z
   foldlWithIndex _ z (Left _)  = z
   foldlWithIndex f z (Right x) = f unit z x
-  foldMapWithIndex f (Left _)  = mempty
+  foldMapWithIndex _ (Left _)  = mempty
   foldMapWithIndex f (Right x) = f unit x
 
 instance foldableWithIndexTuple :: FoldableWithIndex Unit (Tuple a) where

test/Main.purs

@@ -437,26 +437,26 @@ instance eqIOr :: (Eq l, Eq r) => Eq (IOr l r) where
 
 instance bifoldableIOr :: Bifoldable IOr where
   bifoldr l r u (Both fst snd) = l fst (r snd u)
-  bifoldr l r u (Fst fst)      = l fst u
-  bifoldr l r u (Snd snd)      = r snd u
+  bifoldr l _ u (Fst fst)      = l fst u
+  bifoldr _ r u (Snd snd)      = r snd u
 
   bifoldl l r u (Both fst snd) = r (l u fst) snd
-  bifoldl l r u (Fst fst)      = l u fst
-  bifoldl l r u (Snd snd)      = r u snd
+  bifoldl l _ u (Fst fst)      = l u fst
+  bifoldl _ r u (Snd snd)      = r u snd
 
   bifoldMap l r (Both fst snd) = l fst <> r snd
-  bifoldMap l r (Fst fst)      = l fst
-  bifoldMap l r (Snd snd)      = r snd
+  bifoldMap l _ (Fst fst)      = l fst
+  bifoldMap _ r (Snd snd)      = r snd
 
 instance bifunctorIOr :: Bifunctor IOr where
   bimap f g (Both fst snd) = Both (f fst) (g snd)
-  bimap f g (Fst fst)      = Fst (f fst)
-  bimap f g (Snd snd)      = Snd (g snd)
+  bimap f _ (Fst fst)      = Fst (f fst)
+  bimap _ g (Snd snd)      = Snd (g snd)
 
 instance bitraversableIOr :: Bitraversable IOr where
   bitraverse f g (Both fst snd) = Both <$> f fst <*> g snd
-  bitraverse f g (Fst fst)      = Fst <$> f fst
-  bitraverse f g (Snd snd)      = Snd <$> g snd
+  bitraverse f _ (Fst fst)      = Fst <$> f fst
+  bitraverse _ g (Snd snd)      = Snd <$> g snd
 
   bisequence (Both fst snd) = Both <$> fst <*> snd
   bisequence (Fst fst)      = Fst <$> fst