Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-hashtables for openSUSE:Factory checked in at 2021-11-11 21:37:35 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hashtables (Old) and /work/SRC/openSUSE:Factory/.ghc-hashtables.new.1890 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hashtables" Thu Nov 11 21:37:35 2021 rev:5 rq:930435 version:1.2.4.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hashtables/ghc-hashtables.changes 2020-12-22 11:40:16.149549240 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hashtables.new.1890/ghc-hashtables.changes 2021-11-11 21:38:23.696974987 +0100 @@ -1,0 +2,13 @@ +Wed Nov 3 15:52:50 UTC 2021 - [email protected] + +- Update hashtables to version 1.2.4.2. + Upstream has not updated the file "changelog.md" since the last + release. + +------------------------------------------------------------------- +Mon Nov 1 08:36:38 UTC 2021 - [email protected] + +- Update hashtables to version 1.2.4.1 revision 1. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- Old: ---- hashtables-1.2.4.1.tar.gz New: ---- hashtables-1.2.4.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hashtables.spec ++++++ --- /var/tmp/diff_new_pack.DxzIh4/_old 2021-11-11 21:38:24.584975634 +0100 +++ /var/tmp/diff_new_pack.DxzIh4/_new 2021-11-11 21:38:24.584975634 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-hashtables # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name hashtables %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.2.4.1 +Version: 1.2.4.2 Release: 0 Summary: Mutable hash tables in the ST monad License: BSD-3-Clause ++++++ hashtables-1.2.4.1.tar.gz -> hashtables-1.2.4.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/hashtables.cabal new/hashtables-1.2.4.2/hashtables.cabal --- old/hashtables-1.2.4.1/hashtables.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/hashtables.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ Cabal-Version: 2.2 Name: hashtables -Version: 1.2.4.1 +Version: 1.2.4.2 Synopsis: Mutable hash tables in the ST monad Homepage: http://github.com/gregorycollins/hashtables License: BSD-3-Clause @@ -12,8 +12,17 @@ Build-type: Simple -tested-with: GHC==8.8.1,GHC==8.6.5, GHC==8.4.4, GHC==8.2.2, GHC==8.0.2, GHC==7.10.3, GHC==7.8.4 - +tested-with: + GHC == 7.8.4 + GHC == 7.10.3 + GHC == 8.0.2 + GHC == 8.2.2 + GHC == 8.4.4 + GHC == 8.6.5 + GHC == 8.8.4 + GHC == 8.10.7 + GHC == 9.0.1 + GHC == 9.2.1 Description: This package provides a couple of different implementations of mutable hash @@ -218,6 +227,21 @@ main-is: TestSuite.hs type: exitcode-stdio-1.0 + other-modules: + Data.HashTable.Class + Data.HashTable.IO + Data.HashTable.Internal.Array + Data.HashTable.Internal.CacheLine + Data.HashTable.Internal.CheapPseudoRandomBitStream + Data.HashTable.Internal.IntArray + Data.HashTable.Internal.Linear.Bucket + Data.HashTable.Internal.UnsafeTricks + Data.HashTable.Internal.Utils + Data.HashTable.ST.Basic + Data.HashTable.ST.Cuckoo + Data.HashTable.ST.Linear + Data.HashTable.Test.Common + if flag(sse42) && !flag(portable) cc-options: -DUSE_SSE_4_2 -msse4.2 cpp-options: -DUSE_SSE_4_2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/Class.hs new/hashtables-1.2.4.2/src/Data/HashTable/Class.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/Class.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/Class.hs 2001-09-09 03:46:40.000000000 +0200 @@ -48,10 +48,10 @@ #if !MIN_VERSION_base(4,8,0) import Control.Applicative +import Data.Word (Word) #endif import Control.Monad.ST import Data.Hashable -import Data.Word (Word) import Prelude hiding (mapM_) -- | A typeclass for hash tables in the 'ST' monad. The operations on these diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/IO.hs new/hashtables-1.2.4.2/src/Data/HashTable/IO.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/IO.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/IO.hs 2001-09-09 03:46:40.000000000 +0200 @@ -62,7 +62,6 @@ ------------------------------------------------------------------------------ #if !MIN_VERSION_base(4,8,0) -import Control.Applicative import Data.Word #endif import Control.Monad.Primitive (PrimState) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/Internal/CacheLine.hs new/hashtables-1.2.4.2/src/Data/HashTable/Internal/CacheLine.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/Internal/CacheLine.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/Internal/CacheLine.hs 2001-09-09 03:46:40.000000000 +0200 @@ -38,15 +38,6 @@ import Data.HashTable.Internal.Utils import GHC.Exts -#if __GLASGOW_HASKELL__ >= 808 --- Nothing to do here. -#elif __GLASGOW_HASKELL__ >= 707 -import GHC.Exts (isTrue#) -#else -isTrue# :: Bool -> Bool -isTrue# = id -#endif - {-# INLINE prefetchRead #-} {-# INLINE prefetchWrite #-} prefetchRead :: IntArray s -> Int -> ST s () diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/Internal/CheapPseudoRandomBitStream.hs new/hashtables-1.2.4.2/src/Data/HashTable/Internal/CheapPseudoRandomBitStream.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/Internal/CheapPseudoRandomBitStream.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/Internal/CheapPseudoRandomBitStream.hs 2001-09-09 03:46:40.000000000 +0200 @@ -15,10 +15,9 @@ import Data.Vector.Unboxed (Vector) import qualified Data.Vector.Unboxed as V -#if __GLASGOW_HASKELL__ >= 808 import Data.Word (Word32, Word64) -#else -import Data.Word (Word, Word32, Word64) +#if !MIN_VERSION_base(4,8,0) +import Data.Word (Word) #endif import Data.HashTable.Internal.Utils diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/Internal/IntArray.hs new/hashtables-1.2.4.2/src/Data/HashTable/Internal/IntArray.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/Internal/IntArray.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/Internal/IntArray.hs 2001-09-09 03:46:40.000000000 +0200 @@ -52,7 +52,7 @@ ------------------------------------------------------------------------------ primWordToElem :: Word# -> Elem -primWordToElem = W16# +primWordToElem w# = W16# (wordToWord16Compat# w#) ------------------------------------------------------------------------------ @@ -63,7 +63,7 @@ ------------------------------------------------------------------------------ elemToInt# :: Elem -> Int# -elemToInt# (W16# w#) = word2Int# w# +elemToInt# (W16# w#) = word2Int# (word16ToWordCompat# w#) ------------------------------------------------------------------------------ @@ -119,3 +119,17 @@ #else !(Addr !a#) = A.mutableByteArrayContents a #endif + +#if MIN_VERSION_base(4,16,0) +word16ToWordCompat# :: Word16# -> Word# +word16ToWordCompat# = word16ToWord# + +wordToWord16Compat# :: Word# -> Word16# +wordToWord16Compat# = wordToWord16# +#else +word16ToWordCompat# :: Word# -> Word# +word16ToWordCompat# x = x + +wordToWord16Compat# :: Word# -> Word# +wordToWord16Compat# x = x +#endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/Internal/UnsafeTricks.hs new/hashtables-1.2.4.2/src/Data/HashTable/Internal/UnsafeTricks.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/Internal/UnsafeTricks.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/Internal/UnsafeTricks.hs 2001-09-09 03:46:40.000000000 +0200 @@ -22,16 +22,6 @@ #ifdef UNSAFETRICKS import GHC.Exts import Unsafe.Coerce - -#if __GLASGOW_HASKELL__ >= 808 --- Nothing to do here. -#elif __GLASGOW_HASKELL__ >= 707 -import GHC.Exts (isTrue#) -#else -isTrue# :: Bool -> Bool -isTrue# = id -#endif - #endif diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/src/Data/HashTable/ST/Basic.hs new/hashtables-1.2.4.2/src/Data/HashTable/ST/Basic.hs --- old/hashtables-1.2.4.1/src/Data/HashTable/ST/Basic.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/src/Data/HashTable/ST/Basic.hs 2001-09-09 03:46:40.000000000 +0200 @@ -84,6 +84,7 @@ ( HashTable , new , newSized + , size , delete , lookup , insert @@ -202,7 +203,6 @@ newRef ht {-# INLINE newSized #-} - ------------------------------------------------------------------------------ newSizedReal :: Int -> ST s (HashTable_ s k v) newSizedReal m = do @@ -216,6 +216,14 @@ ld <- newSizeRefs return $! HashTable m ld h k v +------------------------------------------------------------------------------ +-- | Returns the number of mappings currently stored in this table. /O(1)/ +size :: HashTable s k v -> ST s Int +size htRef = do + HashTable _ sizeRefs _ _ _ <- readRef htRef + readLoad sizeRefs +{-# INLINE size #-} + ------------------------------------------------------------------------------ -- | See the documentation for this function in diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hashtables-1.2.4.1/test/suite/Data/HashTable/Test/Common.hs new/hashtables-1.2.4.2/test/suite/Data/HashTable/Test/Common.hs --- old/hashtables-1.2.4.1/test/suite/Data/HashTable/Test/Common.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/hashtables-1.2.4.2/test/suite/Data/HashTable/Test/Common.hs 2001-09-09 03:46:40.000000000 +0200 @@ -11,7 +11,10 @@ ) where ------------------------------------------------------------------------------ -import Control.Applicative (pure, (<|>)) +#if !MIN_VERSION_base(4,8,0) +import Control.Applicative (pure, (<$>)) +#endif +import Control.Applicative ((<|>)) import Control.Monad (foldM_, liftM, when) import qualified Control.Monad as Monad import Data.IORef @@ -498,7 +501,7 @@ ------------------------------------------------------------------------------ initializeRNG :: PropertyM IO GenIO -initializeRNG = run $ withSystemRandom (return :: GenIO -> IO GenIO) +initializeRNG = run createSystemRandom ------------------------------------------------------------------------------
