Hello community, here is the log from the commit of package ghc-contravariant for openSUSE:Factory checked in at 2015-08-05 06:51:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-contravariant (Old) and /work/SRC/openSUSE:Factory/.ghc-contravariant.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-contravariant" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-contravariant/ghc-contravariant.changes 2015-05-21 08:35:54.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-contravariant.new/ghc-contravariant.changes 2015-08-05 06:51:58.000000000 +0200 @@ -1,0 +2,6 @@ +Tue Aug 4 05:38:23 UTC 2015 - mimi.vx@gmail.com + +- update to 1.3.2 +* Add ($<) operator + +------------------------------------------------------------------- Old: ---- contravariant-1.3.1.1.tar.gz New: ---- contravariant-1.3.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-contravariant.spec ++++++ --- /var/tmp/diff_new_pack.eRWRWw/_old 2015-08-05 06:51:58.000000000 +0200 +++ /var/tmp/diff_new_pack.eRWRWw/_new 2015-08-05 06:51:58.000000000 +0200 @@ -19,7 +19,7 @@ %global pkg_name contravariant Name: ghc-contravariant -Version: 1.3.1.1 +Version: 1.3.2 Release: 0 Summary: Contravariant functors License: BSD-3-Clause ++++++ contravariant-1.3.1.1.tar.gz -> contravariant-1.3.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/contravariant-1.3.1.1/CHANGELOG.markdown new/contravariant-1.3.2/CHANGELOG.markdown --- old/contravariant-1.3.1.1/CHANGELOG.markdown 2015-05-07 10:59:41.000000000 +0200 +++ new/contravariant-1.3.2/CHANGELOG.markdown 2015-07-30 00:20:35.000000000 +0200 @@ -1,3 +1,7 @@ +1.3.2 +----- +* Add `($<)` operator + 1.3.1.1 ------- * Fixed builds on GHC 7.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/contravariant-1.3.1.1/contravariant.cabal new/contravariant-1.3.2/contravariant.cabal --- old/contravariant-1.3.1.1/contravariant.cabal 2015-05-07 10:59:41.000000000 +0200 +++ new/contravariant-1.3.2/contravariant.cabal 2015-07-30 00:20:35.000000000 +0200 @@ -1,6 +1,6 @@ name: contravariant category: Control, Data -version: 1.3.1.1 +version: 1.3.2 license: BSD3 cabal-version: >= 1.6 license-file: LICENSE diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/contravariant-1.3.1.1/src/Data/Functor/Contravariant.hs new/contravariant-1.3.2/src/Data/Functor/Contravariant.hs --- old/contravariant-1.3.1.1/src/Data/Functor/Contravariant.hs 2015-05-07 10:59:41.000000000 +0200 +++ new/contravariant-1.3.2/src/Data/Functor/Contravariant.hs 2015-07-30 00:20:35.000000000 +0200 @@ -43,7 +43,7 @@ , phantom -- * Operators - , (>$<), (>$$<) + , (>$<), (>$$<), ($<) -- * Predicates , Predicate(..) @@ -90,8 +90,6 @@ import Data.Proxy #endif -import Data.Void - #ifdef MIN_VERSION_StateVar import Data.StateVar #endif @@ -132,9 +130,14 @@ -- 'contramap' f ≡ 'phantom' -- @ phantom :: (Functor f, Contravariant f) => f a -> f b -phantom x = absurd <$> contramap absurd x +phantom x = () <$ x $< () + +infixl 4 >$, $<, >$<, >$$< -infixl 4 >$, >$<, >$$< +-- | This is '>$' with its arguments flipped. +($<) :: Contravariant f => f b -> b -> f a +($<) = flip (>$) +{-# INLINE ($<) #-} -- | This is an infix alias for 'contramap' (>$<) :: Contravariant f => (a -> b) -> f b -> f a