Hello community, here is the log from the commit of package ghc-carray for openSUSE:Factory checked in at 2017-04-14 13:37:22 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-carray (Old) and /work/SRC/openSUSE:Factory/.ghc-carray.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-carray" Fri Apr 14 13:37:22 2017 rev:3 rq:485109 version:0.1.6.6 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-carray/ghc-carray.changes 2017-03-12 20:03:13.296365616 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-carray.new/ghc-carray.changes 2017-04-14 13:37:23.694157123 +0200 @@ -1,0 +2,5 @@ +Mon Mar 27 12:41:19 UTC 2017 - [email protected] + +- Update to version 0.1.6.6 with cabal2obs. + +------------------------------------------------------------------- Old: ---- carray-0.1.6.5.tar.gz New: ---- carray-0.1.6.6.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-carray.spec ++++++ --- /var/tmp/diff_new_pack.8lpfMa/_old 2017-04-14 13:37:24.394058207 +0200 +++ /var/tmp/diff_new_pack.8lpfMa/_new 2017-04-14 13:37:24.398057642 +0200 @@ -19,7 +19,7 @@ %global pkg_name carray %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.1.6.5 +Version: 0.1.6.6 Release: 0 Summary: A C-compatible array library License: BSD-3-Clause ++++++ carray-0.1.6.5.tar.gz -> carray-0.1.6.6.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/carray-0.1.6.5/carray.cabal new/carray-0.1.6.6/carray.cabal --- old/carray-0.1.6.5/carray.cabal 2016-08-10 17:21:54.000000000 +0200 +++ new/carray-0.1.6.6/carray.cabal 2017-03-25 21:01:56.000000000 +0100 @@ -1,5 +1,5 @@ name: carray -version: 0.1.6.5 +version: 0.1.6.6 synopsis: A C-compatible array library. description: A C-compatible array library. @@ -21,7 +21,7 @@ Makefile source-repository this - tag: 0.1.6.5 + tag: 0.1.6.6 type: darcs location: http://hub.darcs.net/thielema/carray/ @@ -57,7 +57,7 @@ build-depends: base <3 if flag(base4) - build-depends: base >=4 && <5, syb >=0.1 && <0.7 + build-depends: base >=4 && <5, syb >=0.1 && <0.8 else build-depends: base <4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/carray-0.1.6.5/src/Data/Array/CArray/Base.hs new/carray-0.1.6.6/src/Data/Array/CArray/Base.hs --- old/carray-0.1.6.5/src/Data/Array/CArray/Base.hs 2016-08-10 17:21:54.000000000 +0200 +++ new/carray-0.1.6.6/src/Data/Array/CArray/Base.hs 2017-03-25 21:01:56.000000000 +0100 @@ -171,7 +171,9 @@ !(fp0, off, len) = S.toForeignPtr bs fp = mapPtr (flip plusPtr off) fp0 p = unsafeForeignPtrToPtr fp - safe = sizeOf dummy * n <= len && p == p `alignPtr` alignment dummy + safe = + sizeOf dummy * n <= len && + p == p `alignPtr` alignment dummy mapPtr :: (Ptr a -> Ptr b) -> ForeignPtr a -> ForeignPtr b mapPtr f (ForeignPtr addr contents) = case f $ Ptr addr of diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/carray-0.1.6.5/tests/meteor-contest-c.hs new/carray-0.1.6.6/tests/meteor-contest-c.hs --- old/carray-0.1.6.5/tests/meteor-contest-c.hs 2016-08-10 17:21:54.000000000 +0200 +++ new/carray-0.1.6.6/tests/meteor-contest-c.hs 2017-03-25 21:01:56.000000000 +0100 @@ -1,5 +1,5 @@ {-# OPTIONS -O2 -optc-O3 #-} -{-# LANGUAGE BangPatterns#-} +{-# LANGUAGE BangPatterns #-} -- The Computer Language Benchmarks Game -- http://shootout.alioth.debian.org/ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/carray-0.1.6.5/tests/meteor-contest-u.hs new/carray-0.1.6.6/tests/meteor-contest-u.hs --- old/carray-0.1.6.5/tests/meteor-contest-u.hs 2016-08-10 17:21:54.000000000 +0200 +++ new/carray-0.1.6.6/tests/meteor-contest-u.hs 2017-03-25 21:01:56.000000000 +0100 @@ -1,5 +1,5 @@ {-# OPTIONS -O2 -optc-O3 #-} -{-# LANGUAGE BangPatterns#-} +{-# LANGUAGE BangPatterns #-} -- The Computer Language Benchmarks Game -- http://shootout.alioth.debian.org/ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/carray-0.1.6.5/tests/tests.hs new/carray-0.1.6.6/tests/tests.hs --- old/carray-0.1.6.5/tests/tests.hs 2016-08-10 17:21:54.000000000 +0200 +++ new/carray-0.1.6.6/tests/tests.hs 2017-03-25 21:01:56.000000000 +0100 @@ -4,13 +4,15 @@ import qualified Test.QuickCheck as QC import Test.QuickCheck (Property, (==>)) import Control.Arrow ((&&&), (***)) +import Control.Monad (liftM2) import Text.Show.Functions () import Data.Array.CArray (CArray, flatten, ixmapWithInd, rank, reshape, shape, size, sliceWith) import Data.Ix.Shapable (shapeToStride) import Data.Array.Unboxed (IArray, Ix, UArray, - accum, amap, bounds, elems, inRange, ixmap, listArray, rangeSize) + accum, amap, bounds, elems, ixmap, listArray, rangeSize) +import Data.Word (Word32) import Foreign.Storable (Storable) import Text.Printf (printf) import System.Environment (getArgs) @@ -101,10 +103,11 @@ prop_ixmapWithInd_amap :: (Int -> Double) -> CArray (Int,Int) Int -> Property prop_ixmapWithInd_amap f a = size a > 0 ==> ixmapWithInd (bounds a) id (\_ e _ -> f e) a == amap f a -type Acc = Int -prop_accum :: (Int -> Acc -> Int) -> CArray Int Int -> [(Int, Acc)] -> Property -prop_accum f a ies = all (inRange (bounds a) . fst) ies - ==> ( (accum :: (Int -> Acc -> Int) -> CArray Int Int -> [(Int, Acc)] -> CArray Int Int) +type Acc = Word32 +prop_accum :: (Int -> Acc -> Int) -> CArray Int Int -> Property +prop_accum f a = + QC.forAll (QC.listOf $ liftM2 (,) (QC.choose (bounds a)) QC.arbitrary) $ \ies -> + ( (accum :: (Int -> Acc -> Int) -> CArray Int Int -> [(Int, Acc)] -> CArray Int Int) =|||= (accum :: (Int -> Acc -> Int) -> UArray Int Int -> [(Int, Acc)] -> UArray Int Int)) f a ies type Transform = CArray Int Int -> CArray Int Int
