diff --git a/CHANGELOG.md b/CHANGELOG.md
index dbab30d..2ef8394 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 (#34 by @JordanMartinez)
 
 ## [v4.1.0](https://github.com/purescript/purescript-functors/releases/tag/v4.1.0) - 2021-03-13
 
diff --git a/src/Data/Functor/Clown.purs b/src/Data/Functor/Clown.purs
index 9eaa75f..7924ed7 100644
--- a/src/Data/Functor/Clown.purs
+++ b/src/Data/Functor/Clown.purs
@@ -38,7 +38,7 @@ instance biapplicativeClown :: Applicative f => Biapplicative (Clown f) where
   bipure a _ = Clown (pure a)
 
 instance profunctorClown :: Contravariant f => Profunctor (Clown f) where
-  dimap f g (Clown a) = Clown (cmap f a)
+  dimap f _ (Clown a) = Clown (cmap f a)
 
 hoistClown :: forall f g a b. (f ~> g) -> Clown f a b -> Clown g a b
 hoistClown f (Clown a) = Clown (f a)
diff --git a/src/Data/Functor/Joker.purs b/src/Data/Functor/Joker.purs
index 12906db..97e43fb 100644
--- a/src/Data/Functor/Joker.purs
+++ b/src/Data/Functor/Joker.purs
@@ -50,7 +50,7 @@ instance biapplicativeJoker :: Applicative g => Biapplicative (Joker g) where
   bipure _ b = Joker (pure b)
 
 instance profunctorJoker :: Functor f => Profunctor (Joker f) where
-  dimap f g (Joker a) = Joker (map g a)
+  dimap _ g (Joker a) = Joker (map g a)
 
 instance choiceJoker :: Functor f => Choice (Joker f) where
   left  (Joker f) = Joker $ map Left f