Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-basement for openSUSE:Factory
checked in at 2021-05-05 20:40:07
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old)
and /work/SRC/openSUSE:Factory/.ghc-basement.new.2988 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-basement"
Wed May 5 20:40:07 2021 rev:13 rq:890317 version:0.0.12
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes
2021-03-17 20:19:32.131283124 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-basement.new.2988/ghc-basement.changes
2021-05-05 20:40:18.322837867 +0200
@@ -1,0 +2,6 @@
+Mon Apr 26 08:10:24 UTC 2021 - psim...@suse.com
+
+- Update basement to version 0.0.12.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
basement-0.0.11.tar.gz
basement.cabal
New:
----
basement-0.0.12.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-basement.spec ++++++
--- /var/tmp/diff_new_pack.TvRD9R/_old 2021-05-05 20:40:18.830835658 +0200
+++ /var/tmp/diff_new_pack.TvRD9R/_new 2021-05-05 20:40:18.834835640 +0200
@@ -18,13 +18,12 @@
%global pkg_name basement
Name: ghc-%{pkg_name}
-Version: 0.0.11
+Version: 0.0.12
Release: 0
Summary: Foundation scrap box of array & string
License: BSD-3-Clause
URL: https://hackage.haskell.org/package/%{pkg_name}
Source0:
https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz
-Source1:
https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/3.cabal#/%{pkg_name}.cabal
BuildRequires: ghc-Cabal-devel
BuildRequires: ghc-rpm-macros
ExcludeArch: %{ix86}
@@ -44,7 +43,6 @@
%prep
%autosetup -n %{pkg_name}-%{version}
-cp -p %{SOURCE1} %{pkg_name}.cabal
%build
%ghc_lib_build
++++++ basement-0.0.11.tar.gz -> basement-0.0.12.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/BoxedArray.hs
new/basement-0.0.12/Basement/BoxedArray.hs
--- old/basement-0.0.11/Basement/BoxedArray.hs 2019-06-30 09:22:18.000000000
+0200
+++ new/basement-0.0.12/Basement/BoxedArray.hs 2021-04-05 05:11:46.000000000
+0200
@@ -86,6 +86,7 @@
import qualified Basement.Alg.Mutable as Alg
import Basement.Compat.MonadTrans
import Basement.Compat.Semigroup
+import Basement.Compat.Primitive
import Basement.Types.OffsetSize
import Basement.PrimType
import Basement.NormalForm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/Compat/Primitive.hs
new/basement-0.0.12/Basement/Compat/Primitive.hs
--- old/basement-0.0.11/Basement/Compat/Primitive.hs 2019-06-30
14:07:03.000000000 +0200
+++ new/basement-0.0.12/Basement/Compat/Primitive.hs 2021-04-05
05:07:40.000000000 +0200
@@ -15,6 +15,7 @@
, compatMkWeak#
, compatIsByteArrayPinned#
, compatIsMutableByteArrayPinned#
+ , unsafeCoerce#
, Word(..)
) where
@@ -26,7 +27,8 @@
import Basement.Compat.PrimTypes
--- GHC 8.8 | Base 4.13
+-- GHC 9.0 | Base 4.15
+-- GHC 8.8 | Base 4.13 4.14
-- GHC 8.6 | Base 4.12
-- GHC 8.4 | Base 4.11
-- GHC 8.2 | Base 4.10
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/FinalPtr.hs
new/basement-0.0.12/Basement/FinalPtr.hs
--- old/basement-0.0.11/Basement/FinalPtr.hs 2019-06-30 09:22:18.000000000
+0200
+++ new/basement-0.0.12/Basement/FinalPtr.hs 2021-04-05 05:11:11.000000000
+0200
@@ -25,7 +25,7 @@
) where
import GHC.Ptr
-import GHC.ForeignPtr
+import qualified GHC.ForeignPtr as GHCF
import GHC.IO
import Basement.Monad
import Basement.Compat.Primitive
@@ -35,7 +35,7 @@
-- | Create a pointer with an associated finalizer
data FinalPtr a = FinalPtr (Ptr a)
- | FinalForeign (ForeignPtr a)
+ | FinalForeign (GHCF.ForeignPtr a)
instance Show (FinalPtr a) where
show f = runST $ withFinalPtr f (pure . show)
instance Eq (FinalPtr a) where
@@ -50,7 +50,7 @@
-- same address, they should be the same final ptr
finalPtrSameMemory :: FinalPtr a -> FinalPtr b -> Bool
finalPtrSameMemory (FinalPtr p1) (FinalPtr p2) = p1 == castPtr p2
-finalPtrSameMemory (FinalForeign p1) (FinalForeign p2) = p1 == castForeignPtr
p2
+finalPtrSameMemory (FinalForeign p1) (FinalForeign p2) = p1 ==
GHCF.castForeignPtr p2
finalPtrSameMemory (FinalForeign _) (FinalPtr _) = False
finalPtrSameMemory (FinalPtr _) (FinalForeign _) = False
@@ -62,17 +62,17 @@
case compatMkWeak# ptr () (finalizer ptr) s of { (# s2, _ #) -> (# s2,
FinalPtr ptr #) }
-- | Create a new FinalPtr from a ForeignPtr
-toFinalPtrForeign :: ForeignPtr a -> FinalPtr a
+toFinalPtrForeign :: GHCF.ForeignPtr a -> FinalPtr a
toFinalPtrForeign fptr = FinalForeign fptr
-- | Cast a finalized pointer from type a to type b
castFinalPtr :: FinalPtr a -> FinalPtr b
castFinalPtr (FinalPtr a) = FinalPtr (castPtr a)
-castFinalPtr (FinalForeign a) = FinalForeign (castForeignPtr a)
+castFinalPtr (FinalForeign a) = FinalForeign (GHCF.castForeignPtr a)
withFinalPtrNoTouch :: FinalPtr p -> (Ptr p -> a) -> a
withFinalPtrNoTouch (FinalPtr ptr) f = f ptr
-withFinalPtrNoTouch (FinalForeign fptr) f = f (unsafeForeignPtrToPtr fptr)
+withFinalPtrNoTouch (FinalForeign fptr) f = f (GHCF.unsafeForeignPtrToPtr fptr)
{-# INLINE withFinalPtrNoTouch #-}
-- | Looks at the raw pointer inside a FinalPtr, making sure the
@@ -83,14 +83,14 @@
primTouch ptr
pure r
withFinalPtr (FinalForeign fptr) f = do
- r <- f (unsafeForeignPtrToPtr fptr)
- unsafePrimFromIO (touchForeignPtr fptr)
+ r <- f (GHCF.unsafeForeignPtrToPtr fptr)
+ unsafePrimFromIO (GHCF.touchForeignPtr fptr)
pure r
{-# INLINE withFinalPtr #-}
touchFinalPtr :: PrimMonad prim => FinalPtr p -> prim ()
touchFinalPtr (FinalPtr ptr) = primTouch ptr
-touchFinalPtr (FinalForeign fptr) = unsafePrimFromIO (touchForeignPtr fptr)
+touchFinalPtr (FinalForeign fptr) = unsafePrimFromIO (GHCF.touchForeignPtr
fptr)
-- | Unsafe version of 'withFinalPtr'
withUnsafeFinalPtr :: PrimMonad prim => FinalPtr p -> (Ptr p -> prim a) -> a
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/Monad.hs
new/basement-0.0.12/Basement/Monad.hs
--- old/basement-0.0.11/Basement/Monad.hs 2019-06-30 14:08:51.000000000
+0200
+++ new/basement-0.0.12/Basement/Monad.hs 2021-04-05 05:08:50.000000000
+0200
@@ -35,6 +35,7 @@
import GHC.IO
import GHC.Prim
import Basement.Compat.Base (Exception, (.), ($), Applicative, Monad)
+import Basement.Compat.Primitive
-- | Primitive monad that can handle mutation.
--
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/Numerical/Additive.hs
new/basement-0.0.12/Basement/Numerical/Additive.hs
--- old/basement-0.0.11/Basement/Numerical/Additive.hs 2019-06-30
09:22:18.000000000 +0200
+++ new/basement-0.0.12/Basement/Numerical/Additive.hs 2021-04-05
05:33:14.000000000 +0200
@@ -1,5 +1,7 @@
{-# LANGUAGE CPP #-}
+{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MagicHash #-}
+{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE DefaultSignatures #-}
{-# OPTIONS_GHC -fno-prof-auto #-}
@@ -117,6 +119,7 @@
azero = 0
(+) = (Word256.+)
scale = scaleNum
+
instance Additive Prelude.Float where
azero = 0.0
(F# a) + (F# b) = F# (a `plusFloat#` b)
@@ -125,6 +128,10 @@
azero = 0.0
(D# a) + (D# b) = D# (a +## b)
scale = scaleNum
+instance Additive Prelude.Rational where
+ azero = 0.0
+ (+) = (Prelude.+)
+ scale = scaleNum
instance (KnownNat n, NatWithinBound Word64 n) => Additive (Zn64 n) where
azero = zn64 0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/Basement/String.hs
new/basement-0.0.12/Basement/String.hs
--- old/basement-0.0.11/Basement/String.hs 2019-06-30 09:22:18.000000000
+0200
+++ new/basement-0.0.12/Basement/String.hs 2021-04-05 05:33:14.000000000
+0200
@@ -813,7 +813,7 @@
where
!(C.ValidRange start end) = C.offsetsValidRange arr
--- Finds where are the insertion points when we search for a `needle`
+-- | Finds where are the insertion points when we search for a `needle`
-- within an `haystack`.
indices :: String -> String -> [Offset8]
indices (String ned) (String hy) = Vec.indices ned hy
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/basement-0.0.11/basement.cabal
new/basement-0.0.12/basement.cabal
--- old/basement-0.0.11/basement.cabal 2019-07-14 16:56:20.000000000 +0200
+++ new/basement-0.0.12/basement.cabal 2021-04-25 03:06:44.000000000 +0200
@@ -1,5 +1,5 @@
name: basement
-version: 0.0.11
+version: 0.0.12
synopsis: Foundation scrap box of array & string
description: Foundation most basic primitives without any dependencies
license: BSD3
