profunctors 0.1.0.2 → 0.1.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

Data/Profunctor.hs +2/−2
profunctors.cabal +1/−1

Data/Profunctor.hs view

@@ -19,7 +19,7 @@   lmap = flip (.)   rmap = (.) -newtype UpStar f d c = UpStar (d -> f c)+newtype UpStar f d c = UpStar { runUpStar :: d -> f c }  instance Functor f => Profunctor (UpStar f) where   lmap k (UpStar f) = UpStar (f . k)   rmap k (UpStar f) = UpStar (fmap k . f)@@ -27,7 +27,7 @@ instance Functor f => Functor (UpStar f a) where   fmap = rmap  -newtype DownStar f d c = DownStar (f d -> c)+newtype DownStar f d c = DownStar { runDownStar :: f d -> c }  instance Functor f => Profunctor (DownStar f) where   lmap k (DownStar f) = DownStar (f . fmap k)   rmap k (DownStar f) = DownStar (k . f)

profunctors.cabal view

@@ -1,6 +1,6 @@ name:          profunctors category:      Control, Categories-version:       0.1.0.2+version:       0.1.1 license:       BSD3 cabal-version: >= 1.6 license-file:  LICENSE