diff --git a/CHANGELOG.md b/CHANGELOG.md
index f141952..756cc02 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,7 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Fix warnings revealed by `v0.14.1` PS release (#47)
 
 ## [v6.0.0](https://github.com/purescript/purescript-catenable-lists/releases/tag/v6.0.0) - 2021-02-26
 
diff --git a/src/Data/CatList.purs b/src/Data/CatList.purs
index 8772083..d0d7aae 100644
--- a/src/Data/CatList.purs
+++ b/src/Data/CatList.purs
@@ -133,7 +133,7 @@ fromFoldable :: forall f. Foldable f => f ~> CatList
 fromFoldable f = Foldable.foldMap singleton f
 
 foldMap :: forall a m. Monoid m => (a -> m) -> CatList a -> m
-foldMap f CatNil = mempty
+foldMap _ CatNil = mempty
 foldMap f (CatCons a q) =
   let d = if Q.null q then CatNil else (foldr link CatNil q)
   in f a <> foldMap f d