Hello community, here is the log from the commit of package ghc-contravariant-extras for openSUSE:Factory checked in at 2017-01-31 12:41:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-contravariant-extras (Old) and /work/SRC/openSUSE:Factory/.ghc-contravariant-extras.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-contravariant-extras" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-contravariant-extras/ghc-contravariant-extras.changes 2017-01-19 10:42:16.234450294 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-contravariant-extras.new/ghc-contravariant-extras.changes 2017-02-03 17:38:51.818828537 +0100 @@ -1,0 +2,5 @@ +Sun Aug 21 17:13:52 UTC 2016 - psimons@suse.com + +- Update to version 0.3.3.1 revision 0 with cabal2obs. + +------------------------------------------------------------------- Old: ---- contravariant-extras-0.3.2.tar.gz New: ---- contravariant-extras-0.3.3.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-contravariant-extras.spec ++++++ --- /var/tmp/diff_new_pack.ySR27N/_old 2017-02-03 17:38:52.202774194 +0100 +++ /var/tmp/diff_new_pack.ySR27N/_new 2017-02-03 17:38:52.202774194 +0100 @@ -18,22 +18,20 @@ %global pkg_name contravariant-extras Name: ghc-%{pkg_name} -Version: 0.3.2 +Version: 0.3.3.1 Release: 0 Summary: Extras for the "contravariant" package License: MIT -Group: System/Libraries +Group: Development/Languages/Other Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz BuildRequires: ghc-Cabal-devel -# Begin cabal-rpm deps: BuildRequires: ghc-base-prelude-devel BuildRequires: ghc-contravariant-devel BuildRequires: ghc-rpm-macros BuildRequires: ghc-template-haskell-devel BuildRequires: ghc-tuple-th-devel BuildRoot: %{_tmppath}/%{name}-%{version}-build -# End cabal-rpm deps %description Extras for the "contravariant" package. @@ -53,15 +51,12 @@ %prep %setup -q -n %{pkg_name}-%{version} - %build %ghc_lib_build - %install %ghc_lib_install - %post devel %ghc_pkg_recache ++++++ contravariant-extras-0.3.2.tar.gz -> contravariant-extras-0.3.3.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/contravariant-extras-0.3.2/contravariant-extras.cabal new/contravariant-extras-0.3.3.1/contravariant-extras.cabal --- old/contravariant-extras-0.3.2/contravariant-extras.cabal 2016-04-25 16:13:34.000000000 +0200 +++ new/contravariant-extras-0.3.3.1/contravariant-extras.cabal 2016-08-17 18:24:55.000000000 +0200 @@ -1,7 +1,7 @@ name: contravariant-extras version: - 0.3.2 + 0.3.3.1 category: Control synopsis: @@ -38,7 +38,7 @@ library ghc-options: default-extensions: - Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFunctor, DeriveGeneric, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, ImpredicativeTypes, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples + Arrows, BangPatterns, ConstraintKinds, DataKinds, DefaultSignatures, DeriveDataTypeable, DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, EmptyDataDecls, FlexibleContexts, FlexibleInstances, FunctionalDependencies, GADTs, GeneralizedNewtypeDeriving, LambdaCase, LiberalTypeSynonyms, MagicHash, MultiParamTypeClasses, MultiWayIf, NoImplicitPrelude, NoMonomorphismRestriction, OverloadedStrings, PatternGuards, ParallelListComp, QuasiQuotes, RankNTypes, RecordWildCards, ScopedTypeVariables, StandaloneDeriving, TemplateHaskell, TupleSections, TypeFamilies, TypeOperators, UnboxedTuples default-language: Haskell2010 other-modules: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/contravariant-extras-0.3.2/library/Contravariant/Extras.hs new/contravariant-extras-0.3.3.1/library/Contravariant/Extras.hs --- old/contravariant-extras-0.3.2/library/Contravariant/Extras.hs 2016-04-25 16:13:34.000000000 +0200 +++ new/contravariant-extras-0.3.3.1/library/Contravariant/Extras.hs 2016-08-17 18:24:55.000000000 +0200 @@ -4,6 +4,7 @@ -- A berserk collection of @contrazip@ functions with arities of up to 42. module Contravariant.Extras.Contrazip, contramany, + Supplied(..), ) where @@ -30,3 +31,20 @@ nil = conquer +-- | +-- A combination of a divisible functor with some input for it. +-- Allows to use the 'Monoid' API for composition. +data Supplied divisible = + forall input. Supplied !(divisible input) !input + +instance Divisible divisible => Monoid (Supplied divisible) where + mempty = + Supplied conquer () + mappend (Supplied divisible1 input1) (Supplied divisible2 input2) = + Supplied divisible3 input3 + where + divisible3 = + divide id divisible1 divisible2 + input3 = + (input1, input2) +