Skip to content

Commit

Permalink
Generalise ***$
Browse files Browse the repository at this point in the history
Patch courtesy of Jack Kelly @endgame
  • Loading branch information
tomjaguarpaw committed Oct 23, 2021
1 parent 256f352 commit 1c69b02
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Data/Profunctor/Product.hs
Original file line number Diff line number Diff line change
Expand Up @@ -75,13 +75,13 @@ import Data.Profunctor.Product.Tuples.TH (pTns, maxTupleSize, pNs)
-- Still, at least we now have default implementations of the class
-- methods, which makes things simpler.

-- | '***$' is the generalisation of @Applicative@'s @\<$\>@.
-- | '***$' is the generalisation of @Functor@'s @\<$\>@.
--
-- '***$' = 'Profunctor.rmap', just like '<$>' = 'fmap'.
--
-- (You probably won't need to use this. @\<$\>@ should be
-- sufficient.)
(***$) :: ProductProfunctor p => (b -> c) -> p a b -> p a c
(***$) :: Profunctor p => (b -> c) -> p a b -> p a c
(***$) = Profunctor.rmap

instance ProductProfunctor (->) where
Expand Down

0 comments on commit 1c69b02

Please sign in to comment.