From 7b996fc7163d12fcce54fac6973b7d7347c41daa Mon Sep 17 00:00:00 2001 From: Jordan Martinez Date: Tue, 20 Apr 2021 12:54:22 -0700 Subject: [PATCH 1/2] Fix warnings revealed by v0.14.1 PS release --- src/Data/Functor/Clown.purs | 2 +- src/Data/Functor/Joker.purs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 From f84cc711f87555e2361fdb8ac55b5edaf04dbd15 Mon Sep 17 00:00:00 2001 From: Jordan Martinez Date: Tue, 20 Apr 2021 12:55:30 -0700 Subject: [PATCH 2/2] Update changelog --- CHANGELOG.md | 1 + 1 file changed, 1 insertion(+) 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