commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2020-09-07 21:27:22 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.3399 (New) Package is "ghc-basement" Mon Sep 7 21:27:22 2020 rev:10 rq:832246 version:0.0.11 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2020-08-28 21:26:08.112461071 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.3399/ghc-basement.changes 2020-09-07 21:28:30.925192180 +0200 @@ -1,0 +2,6 @@ +Mon Aug 31 09:34:36 UTC 2020 - psim...@suse.com + +- Update basement to version 0.0.11 revision 2. + Upstream has revised the Cabal build instructions on Hackage. + +--- Other differences: --
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2020-08-28 21:26:07 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.3399 (New) Package is "ghc-basement" Fri Aug 28 21:26:07 2020 rev:9 rq:829190 version:0.0.11 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2020-06-19 17:08:56.697344342 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.3399/ghc-basement.changes 2020-08-28 21:26:08.112461071 +0200 @@ -1,0 +2,5 @@ +Tue Aug 18 10:44:07 UTC 2020 - Peter Simons + +- Replace %setup -q with the more modern %autosetup macro. + +--- Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.QXnXzS/_old 2020-08-28 21:26:08.808461400 +0200 +++ /var/tmp/diff_new_pack.QXnXzS/_new 2020-08-28 21:26:08.812461402 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-basement # -# Copyright (c) 2019 SUSE LLC +# Copyright (c) 2020 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -42,7 +42,7 @@ This package provides the Haskell %{pkg_name} library development files. %prep -%setup -q -n %{pkg_name}-%{version} +%autosetup -n %{pkg_name}-%{version} cp -p %{SOURCE1} %{pkg_name}.cabal %build
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2020-06-19 17:08:51 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.3606 (New) Package is "ghc-basement" Fri Jun 19 17:08:51 2020 rev:8 rq:815043 version:0.0.11 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2019-12-27 13:51:51.608594391 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.3606/ghc-basement.changes 2020-06-19 17:08:56.697344342 +0200 @@ -1,0 +2,5 @@ +Tue Jun 16 11:13:48 UTC 2020 - Peter Simons + +- Re-generate file with latest version of spec-cleaner. + +--- Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.ecPggM/_old 2020-06-19 17:08:58.357348669 +0200 +++ /var/tmp/diff_new_pack.ecPggM/_new 2020-06-19 17:08:58.357348669 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-basement # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2019 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2019-12-27 13:51:49 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.6675 (New) Package is "ghc-basement" Fri Dec 27 13:51:49 2019 rev:7 rq:759347 version:0.0.11 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2019-07-29 17:26:03.018309786 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.6675/ghc-basement.changes 2019-12-27 13:51:51.608594391 +0100 @@ -1,0 +2,5 @@ +Fri Nov 8 16:13:17 UTC 2019 - Peter Simons + +- Drop obsolete group attributes. + +--- New: basement.cabal Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.BMZ9KM/_old 2019-12-27 13:51:52.208594817 +0100 +++ /var/tmp/diff_new_pack.BMZ9KM/_new 2019-12-27 13:51:52.208594817 +0100 @@ -22,9 +22,9 @@ Release:0 Summary:Foundation scrap box of array & string License:BSD-3-Clause -Group: Development/Libraries/Haskell 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/2.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-rpm-macros @@ -33,7 +33,6 @@ %package devel Summary:Haskell %{pkg_name} library development files -Group: Development/Libraries/Haskell Requires: %{name} = %{version}-%{release} Requires: ghc-compiler = %{ghc_version} Requires(post): ghc-compiler = %{ghc_version} @@ -44,6 +43,7 @@ %prep %setup -q -n %{pkg_name}-%{version} +cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++ basement.cabal ++ name:basement version: 0.0.11 x-revision: 2 synopsis:Foundation scrap box of array & string description: Foundation most basic primitives without any dependencies license: BSD3 license-file:LICENSE copyright: 2015-2017 Vincent Hanquez , 2017-2018 Foundation Maintainers maintainer: vinc...@snarc.org category:Web build-type: Simple homepage:https://github.com/haskell-foundation/foundation#readme bug-reports: https://github.com/haskell-foundation/foundation/issues cabal-version: 1.18 extra-source-files: cbits/*.h cbits/basement_rts.c source-repository head type: git location: https://github.com/haskell-foundation/foundation subdir: basement library hs-source-dirs:. exposed-modules: Basement.Imports Basement.Base16 Basement.Bindings.Memory Basement.Endianness Basement.Environment Basement.PrimType Basement.Exception Basement.Cast Basement.From Basement.Types.Char7 Basement.Types.CharUTF8 Basement.Types.OffsetSize Basement.Types.Ptr Basement.Types.AsciiString Basement.Types.Word128 Basement.Types.Word256 Basement.Monad Basement.MutableBuilder Basement.FinalPtr Basement.Nat -- Extended Types Basement.BoxedArray Basement.Block Basement.Block.Mutable Basement.Block.Builder Basement.UArray Basement.UArray.Mutable Basement.String Basement.String.Builder Basement.NonEmpty -- Extended Types with explicit type level size Basement.Sized.Block Basement.Sized.UVect Basement.Sized.Vect Basement.Sized.List Basement.BlockN -- Utils Basement.NormalForm Basement.These -- Terminal Basement.Terminal Basement.Terminal.ANSI -- numeric stuff Basement.IntegralConv Basement.Floating Basement.Numerical.Number Basement.Numerical.Additive
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2019-07-29 17:26:01 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.4126 (New) Package is "ghc-basement" Mon Jul 29 17:26:01 2019 rev:6 rq:715409 version:0.0.11 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2019-02-17 12:19:56.316223692 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.4126/ghc-basement.changes 2019-07-29 17:26:03.018309786 +0200 @@ -1,0 +2,6 @@ +Mon Jul 15 02:01:52 UTC 2019 - psim...@suse.com + +- Update basement to version 0.0.11. + Upstream does not provide a change log file. + +--- Old: basement-0.0.10.tar.gz basement.cabal New: basement-0.0.11.tar.gz Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.Tn5pYX/_old 2019-07-29 17:26:03.530309597 +0200 +++ /var/tmp/diff_new_pack.Tn5pYX/_new 2019-07-29 17:26:03.534309595 +0200 @@ -18,14 +18,13 @@ %global pkg_name basement Name: ghc-%{pkg_name} -Version:0.0.10 +Version:0.0.11 Release:0 Summary:Foundation scrap box of array & string License:BSD-3-Clause Group: Development/Libraries/Haskell 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/1.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-rpm-macros @@ -45,7 +44,6 @@ %prep %setup -q -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++ basement-0.0.10.tar.gz -> basement-0.0.11.tar.gz ++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/basement-0.0.10/Basement/Block/Base.hs new/basement-0.0.11/Basement/Block/Base.hs --- old/basement-0.0.10/Basement/Block/Base.hs 2019-01-09 12:14:46.0 +0100 +++ new/basement-0.0.11/Basement/Block/Base.hs 2019-06-30 09:22:18.0 +0200 @@ -25,6 +25,7 @@ , mutableLength , mutableLengthBytes -- * Other methods +, empty , mutableEmpty , new , newPinned @@ -55,13 +56,17 @@ data Block ty = Block ByteArray# deriving (Typeable) +unsafeBlockPtr :: Block ty -> Ptr ty +unsafeBlockPtr (Block arrBa) = Ptr (byteArrayContents# arrBa) +{-# INLINE unsafeBlockPtr #-} + instance Data ty => Data (Block ty) where dataTypeOf _ = blockType toConstr _ = error "toConstr" gunfold _ _ = error "gunfold" blockType :: DataType -blockType = mkNoRepType "Foundation.Block" +blockType = mkNoRepType "Basement.Block" instance NormalForm (Block ty) where toNormalForm (Block !_) = () @@ -147,9 +152,11 @@ ma <- new (CountOf len) iter azero l $ \i x -> unsafeWrite ma i x unsafeFreeze ma - where len = Data.List.length l -iter _ [] _ = return () -iter !i (x:xs) z = z i x >> iter (i+1) xs z + where +!len = Data.List.length l + +iter _ [] _ = return () +iter !i (x:xs) z = z i x >> iter (i+1) xs z -- | transform a block to a list. internalToList :: forall ty . PrimType ty => Block ty -> [ty] @@ -395,8 +402,8 @@ withPtr x@(Block ba) f | isPinned x == Pinned = f (Ptr (byteArrayContents# ba)) <* touch x | otherwise= do -arr@(Block arrBa) <- makeTrampoline -f (Ptr (byteArrayContents# arrBa)) <* touch arr +arr <- makeTrampoline +f (unsafeBlockPtr arr) <* touch arr where makeTrampoline = do trampoline <- unsafeNew Pinned (lengthBytes x) @@ -478,5 +485,5 @@ where vecSz = mutableLengthBytes mb callWithPtr pinnedMb = do -b@(Block ba) <- unsafeFreeze pinnedMb -f (Ptr (byteArrayContents# ba)) <* touch b +b <- unsafeFreeze pinnedMb +f (unsafeBlockPtr b) <* touch b diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/basement-0.0.10/Basement/Block/Mutable.hs new/basement-0.0.11/Basement/Block/Mutable.hs --- old/basement-0.0.10/Basement/Block/Mutable.hs 2019-01-09 12:14:46.0 +0100 +++ new/basement-0.0.11/Basement/Block/Mutable.hs 2019-06-30 09:22:18.0 +0200 @@ -145,7 +145,8 @@ copyToPtr mb@(MutableBlock mba) ofs dst@(Ptr dst#) count | srcEnd > sizeAsOffset arrSz = primOutOfBound OOB_MemCopy srcEnd arrSz | otherwise= do -(Block ba) <- unsafeFreeze mb +blk <- unsafeFreeze mb +
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2019-02-17 12:19:53 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new.28833 (New) Package is "ghc-basement" Sun Feb 17 12:19:53 2019 rev:5 rq:674295 version:0.0.10 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2018-10-25 08:22:43.139901240 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new.28833/ghc-basement.changes 2019-02-17 12:19:56.316223692 +0100 @@ -1,0 +2,6 @@ +Thu Feb 7 13:49:04 UTC 2019 - psim...@suse.com + +- Update basement to version 0.0.10. + Upstream does not provide a change log file. + +--- Old: basement-0.0.8.tar.gz New: basement-0.0.10.tar.gz Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.iPymZB/_old 2019-02-17 12:19:56.776223566 +0100 +++ /var/tmp/diff_new_pack.iPymZB/_new 2019-02-17 12:19:56.776223566 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-basement # -# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name basement Name: ghc-%{pkg_name} -Version:0.0.8 +Version:0.0.10 Release:0 Summary:Foundation scrap box of array & string License:BSD-3-Clause ++ basement-0.0.8.tar.gz -> basement-0.0.10.tar.gz ++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/basement-0.0.8/Basement/Bits.hs new/basement-0.0.10/Basement/Bits.hs --- old/basement-0.0.8/Basement/Bits.hs 2018-02-23 20:15:54.0 +0100 +++ new/basement-0.0.10/Basement/Bits.hs2019-02-06 07:37:11.0 +0100 @@ -24,7 +24,6 @@ module Basement.Bits ( BitOps(..) , FiniteBitsOps(..) - , Bits , toBits , allOne @@ -57,7 +56,7 @@ import GHC.IntWord64 #endif --- | operation over finit bits +-- | operation over finite bits class FiniteBitsOps bits where -- | get the number of bits in the given object -- @@ -123,6 +122,11 @@ default clearBit :: FiniteBitsOps bits => bits -> Offset Bool -> bits clearBit x n = x .&. (bitFlip (bit n)) +infixl 8 .<<., .>>., `rotateL`, `rotateR` +infixl 7 .&. +infixl 6 .^. +infixl 5 .|. + -- | Bool set of 'n' bits. -- newtype Bits (n :: Nat) = Bits { bitsToNatural :: Natural } @@ -162,6 +166,7 @@ instance SizeValid n => Additive (Bits n) where azero = Bits 0 (+) (Bits a) (Bits b) = toBits (a + b) +scale n (Bits a) = toBits (scale n a) instance SizeValid n => Subtractive (Bits n) where type Difference (Bits n) = Bits n (-) (Bits a) (Bits b) = maybe azero toBits (a - b) @@ -310,6 +315,57 @@ (W32# x#) .<<. (CountOf (I# i#)) = W32# (narrow32Word# (x# `shiftL#` i#)) (W32# x#) .>>. (CountOf (I# i#)) = W32# (narrow32Word# (x# `shiftRL#` i#)) +-- Word - + +#if WORD_SIZE_IN_BITS == 64 +instance FiniteBitsOps Word where +numberOfBits _ = 64 +rotateL (W# x#) (CountOf (I# i#)) +| isTrue# (i'# ==# 0#) = W# x# +| otherwise = W# ((x# `uncheckedShiftL#` i'#) `or#` + (x# `uncheckedShiftRL#` (64# -# i'#))) + where +!i'# = word2Int# (int2Word# i# `and#` 63##) +rotateR (W# x#) (CountOf (I# i#)) +| isTrue# (i'# ==# 0#) = W# x# +| otherwise = W# ((x# `uncheckedShiftRL#` i'#) `or#` + (x# `uncheckedShiftL#` (64# -# i'#))) + where +!i'# = word2Int# (int2Word# i# `and#` 63##) +bitFlip (W# x#) = W# (x# `xor#` mb#) +where !(W# mb#) = maxBound +popCount (W# x#) = CountOf $ wordToInt (W# (popCnt64# x#)) +countLeadingZeros (W# w#) = CountOf $ wordToInt (W# (clz64# w#)) +countTrailingZeros (W# w#) = CountOf $ wordToInt (W# (ctz64# w#)) +#else +instance FiniteBitsOps Word where +numberOfBits _ = 32 +rotateL (W# x#) (CountOf (I# i#)) +| isTrue# (i'# ==# 0#) = W# x# +| otherwise = W# ((x# `uncheckedShiftL#` i'#) `or#` + (x# `uncheckedShiftRL#` (32# -# i'#))) + where +!i'# = word2Int# (int2Word# i# `and#` 31##) +rotateR (W# x#) (CountOf (I# i#)) +| isTrue# (i'# ==# 0#) = W# x# +| otherwise = W# ((x# `uncheckedShiftRL#` i'#) `or#` + (x# `uncheckedShiftL#` (32# -# i'#))) + where +
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2018-10-25 08:22:41 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new (New) Package is "ghc-basement" Thu Oct 25 08:22:41 2018 rev:4 rq:643355 version:0.0.8 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2018-08-20 16:20:11.528887818 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new/ghc-basement.changes 2018-10-25 08:22:43.139901240 +0200 @@ -1,0 +2,5 @@ +Sat Oct 20 11:31:13 UTC 2018 - Peter Simons + +- Use https URL to refer to bugs.opensuse.org. + +--- Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.E3EERF/_old 2018-10-25 08:22:44.227900749 +0200 +++ /var/tmp/diff_new_pack.E3EERF/_new 2018-10-25 08:22:44.227900749 +0200 @@ -12,7 +12,7 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ #
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2018-08-20 16:20:00 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new (New) Package is "ghc-basement" Mon Aug 20 16:20:00 2018 rev:3 rq:630361 version:0.0.8 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2018-07-24 17:13:34.218618469 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new/ghc-basement.changes 2018-08-20 16:20:11.528887818 +0200 @@ -1,0 +2,5 @@ +Tue Aug 7 07:10:52 UTC 2018 - psim...@suse.com + +- Update Cabal build information to support pre-8.x compilers. + +--- New: basement.cabal Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.6kjTWD/_old 2018-08-20 16:20:11.94411 +0200 +++ /var/tmp/diff_new_pack.6kjTWD/_new 2018-08-20 16:20:11.952888417 +0200 @@ -25,6 +25,7 @@ Group: Development/Libraries/Haskell 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/1.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-rpm-macros @@ -44,6 +45,7 @@ %prep %setup -q -n %{pkg_name}-%{version} +cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++ basement.cabal ++ name:basement version: 0.0.8 x-revision: 1 synopsis:Foundation scrap box of array & string description: Foundation most basic primitives without any dependencies license: BSD3 license-file:LICENSE copyright: 2015-2017 Vincent Hanquez , 2017-2018 Foundation Maintainers maintainer: vinc...@snarc.org category:Web build-type: Simple homepage:https://github.com/haskell-foundation/foundation#readme bug-reports: https://github.com/haskell-foundation/foundation/issues cabal-version: >=1.10 extra-source-files: cbits/*.h source-repository head type: git location: https://github.com/haskell-foundation/foundation subdir: basement library hs-source-dirs:. exposed-modules: Basement.Imports Basement.Base16 Basement.Bindings.Memory Basement.Endianness Basement.Environment Basement.PrimType Basement.Exception Basement.Cast Basement.From Basement.Types.Char7 Basement.Types.CharUTF8 Basement.Types.OffsetSize Basement.Types.Ptr Basement.Types.AsciiString Basement.Types.Word128 Basement.Types.Word256 Basement.Monad Basement.MutableBuilder Basement.FinalPtr Basement.Nat -- Extended Types Basement.BoxedArray Basement.Block Basement.Block.Mutable Basement.Block.Builder Basement.UArray Basement.UArray.Mutable Basement.String Basement.String.Builder Basement.NonEmpty -- Extended Types with explicit type level size Basement.Sized.Block Basement.Sized.UVect Basement.Sized.Vect Basement.Sized.List Basement.BlockN -- Utils Basement.NormalForm Basement.These -- Terminal Basement.Terminal Basement.Terminal.ANSI -- numeric stuff Basement.IntegralConv Basement.Floating Basement.Numerical.Number Basement.Numerical.Additive Basement.Numerical.Subtractive Basement.Numerical.Multiplicative Basement.Bounded -- exported algorithms Basement.Alg.XorShift -- compat / base redefinition Basement.Compat.AMP Basement.Compat.Base
commit ghc-basement for openSUSE:Factory
Hello community, here is the log from the commit of package ghc-basement for openSUSE:Factory checked in at 2018-07-24 17:13:31 Comparing /work/SRC/openSUSE:Factory/ghc-basement (Old) and /work/SRC/openSUSE:Factory/.ghc-basement.new (New) Package is "ghc-basement" Tue Jul 24 17:13:31 2018 rev:2 rq:623726 version:0.0.8 Changes: --- /work/SRC/openSUSE:Factory/ghc-basement/ghc-basement.changes 2018-05-30 13:10:20.874385774 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-basement.new/ghc-basement.changes 2018-07-24 17:13:34.218618469 +0200 @@ -1,0 +2,6 @@ +Fri Jul 13 14:31:46 UTC 2018 - psim...@suse.com + +- Update basement to version 0.0.8. + Upstream does not provide a change log file. + +--- Old: basement-0.0.7.tar.gz New: basement-0.0.8.tar.gz Other differences: -- ++ ghc-basement.spec ++ --- /var/tmp/diff_new_pack.1Y6fTA/_old 2018-07-24 17:13:35.022619513 +0200 +++ /var/tmp/diff_new_pack.1Y6fTA/_new 2018-07-24 17:13:35.022619513 +0200 @@ -18,7 +18,7 @@ %global pkg_name basement Name: ghc-%{pkg_name} -Version:0.0.7 +Version:0.0.8 Release:0 Summary:Foundation scrap box of array & string License:BSD-3-Clause ++ basement-0.0.7.tar.gz -> basement-0.0.8.tar.gz ++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/basement-0.0.7/Basement/Alg/String.hs new/basement-0.0.8/Basement/Alg/String.hs --- old/basement-0.0.7/Basement/Alg/String.hs 2018-02-04 11:47:59.0 +0100 +++ new/basement-0.0.8/Basement/Alg/String.hs 2018-03-12 23:27:49.0 +0100 @@ -39,9 +39,9 @@ loop !d !s | s == end = pure (offsetAsSize d) | otherwise = -let !h = index src s +let !h = nextAscii src s in case headerIsAscii h of -True | predicate (toChar1 h) -> primMbaWrite dst d h >> loop (d + Offset 1) (s + Offset 1) +True | predicate (toChar1 h) -> primMbaWrite dst d (stepAsciiRawValue h) >> loop (d + Offset 1) (s + Offset 1) | otherwise -> loop d (s + Offset 1) False -> case next src s of @@ -58,10 +58,10 @@ where loop4 !ofs | ofs4 < end = -let h1 = index ba ofs -h2 = index ba (ofs+1) -h3 = index ba (ofs+2) -h4 = index ba (ofs+3) +let h1 = nextAscii ba ofs +h2 = nextAscii ba (ofs+1) +h3 = nextAscii ba (ofs+2) +h4 = nextAscii ba (ofs+3) in if headerIsAscii h1 && headerIsAscii h2 && headerIsAscii h3 && headerIsAscii h4 then loop4 ofs4 else loop ofs @@ -73,7 +73,7 @@ | headerIsAscii h = loop (ofs + Offset 1) | otherwise = multi (CountOf $ getNbBytes h) ofs where -h = index ba ofs +h = nextAscii ba ofs multi (CountOf 0xff) pos = (pos, Just InvalidHeader) multi nbConts pos diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/basement-0.0.7/Basement/Alg/UTF8.hs new/basement-0.0.8/Basement/Alg/UTF8.hs --- old/basement-0.0.7/Basement/Alg/UTF8.hs 2018-02-04 12:56:52.0 +0100 +++ new/basement-0.0.8/Basement/Alg/UTF8.hs 2018-03-12 23:27:49.0 +0100 @@ -9,8 +9,10 @@ , expectAscii , next , nextSkip +, nextWith , prev , prevSkip +, writeASCII , writeUTF8 , toList , all @@ -32,6 +34,7 @@ import Basement.Numerical.Additive import Basement.Numerical.Subtractive import Basement.Types.OffsetSize +import Basement.Types.Char7 (Char7(..)) import Basement.PrimType import Basement.UTF8.Helper import Basement.UTF8.Table @@ -62,15 +65,31 @@ 3 -> Step (toChar4 h (index ba (n + Offset 1)) (index ba (n + Offset 2)) (index ba (n + Offset 3))) (n + Offset 4) -r -> error ("next: internal error: invalid input: offset=" <> show n <> " table=" <> show r <> " h=" <> show h) +r -> error ("next: internal error: invalid input: offset=" <> show n <> " table=" <> show r <> " h=" <> show (stepAsciiRawValue h)) where -!h = index ba n +!h = nextAscii ba n {-# INLINE next #-} nextSkip :: Indexable container Word8 => container -> Offset Word8 -> Offset Word8 -nextSkip ba n = n + 1 + Offset (getNbBytes (index ba n)) +nextSkip ba n = n + 1 + Offset (getNbBytes (nextAscii ba n)) {-# INLINE nextSkip