Rename lmap to lcmap

Author: garyb

src/Data/Profunctor.purs

@@ -23,8 +23,8 @@ class Profunctor p where
   dimap :: forall a b c d. (a -> b) -> (c -> d) -> p b c -> p a d
 
 -- | Map a function over the (contravariant) first type argument only.
-lmap :: forall a b c p. Profunctor p => (a -> b) -> p b c -> p a c
-lmap a2b = dimap a2b identity
+lcmap :: forall a b c p. Profunctor p => (a -> b) -> p b c -> p a c
+lcmap a2b = dimap a2b identity
 
 -- | Map a function over the (covariant) second type argument only.
 rmap :: forall a b c p. Profunctor p => (b -> c) -> p a b -> p a c

src/Data/Profunctor/Costar.purs

@@ -9,7 +9,7 @@ import Data.Distributive (class Distributive, distribute)
 import Data.Either (Either(..), either)
 import Data.Functor.Invariant (class Invariant, imapF)
 import Data.Newtype (class Newtype)
-import Data.Profunctor (class Profunctor, lmap)
+import Data.Profunctor (class Profunctor, lcmap)
 import Data.Profunctor.Closed (class Closed)
 import Data.Profunctor.Cochoice (class Cochoice)
 import Data.Profunctor.Costrong (class Costrong)
@@ -75,4 +75,4 @@ instance closedCostar :: Functor f => Closed (Costar f) where
   closed (Costar f) = Costar \g x -> f (map (_ $ x) g)
 
 hoistCostar :: forall f g a b. (g ~> f) -> Costar f a b -> Costar g a b
-hoistCostar f (Costar g) = Costar (lmap f g)
+hoistCostar f (Costar g) = Costar (lcmap f g)

src/Data/Profunctor/Cowrap.purs

@@ -4,7 +4,7 @@ import Prelude
 
 import Data.Newtype (class Newtype)
 import Data.Functor.Contravariant (class Contravariant)
-import Data.Profunctor (class Profunctor, lmap)
+import Data.Profunctor (class Profunctor, lcmap)
 
 -- | Provides a `Contravariant` over the first argument of a `Profunctor`.
 newtype Cowrap p b a = Cowrap (p a b)
@@ -17,4 +17,4 @@ instance showCowrap :: Show (p a b) => Show (Cowrap p b a) where
   show (Cowrap x) = "(Cowrap " <> show x <> ")"
 
 instance contravariantCowrap :: Profunctor p => Contravariant (Cowrap p b) where
-  cmap f (Cowrap a) = Cowrap (lmap f a)
+  cmap f (Cowrap a) = Cowrap (lcmap f a)