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
